HONEYWELL 


MULTICS REPORT _ 
PROGRAM 
GENERATOR 
(MRPG) 
REFERENCE 
MANUAL 


—_ 


| SOFTWARE 


SERIES 60 (LEVEL 68) 


MULTICS REPORT PROGRAM 
GENERATOR (MRPG) 
REFERENCE MANUAL 
PRELIMINARY EDITION 


SUBJECT 


Detailed Description of the Multics Report Program Generator (MRPG) 
Including Details of the Language Necessary to Prepare, Generate, and Execute 
Programs 


SPECIAL INSTRUCTIONS 


This manual presupposes some basic knowledge of the Multics system, and does 
not attempt to provide extensive information on a text editor needed to write 
MRPG programs, on the PL/I compiler, nor on the methods that may be used to 
create and maintain the input files from which reports are produced. 


This preliminary edition is based on the best information availabie at the time 
of writing. Additional functional capabilities are expected to be provided in 
future revisions. 


SOFTWARE SUPPORTED 
' Multics Software Release 6.0 


ORDER NUMBER 
CC69, Rev. 0 March 1978 


Honeywell 


PREF ACE 


complete definition of the Multics Report 
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SECTION 1 


INTRODUCTION 


The Multics Report Program Generator (MRPG) is a language translator used 
to generate a PL/I source program from an MRPG source program with the purpose 
of generating formatted reports. A complete definition of the language is 
presented in a COBOL-like notation (see Section 5). 


SUMMARY OF THE MRPG APPROACH 


The source program may be built with a text editor in a free-form format 
using the MRPG language that is much higher in level than procedural languages 
such as BASIC, FORTRAN, COBOL, or PL/I. A PL/I source program is generated from 
the MRPG source program. The standard PL/I compiler then compiles the PL/I 
source program into an MRPG object segment (MRPG-OS). An ASCII input file is 
read by the object segment and one or more reports’ are produced. A report can 
be printed on the user's terminal as it is being produced or it may be written 
to a segment for later printing. 


Once an object segment has been created, it can be used repeatedly with 
input files that have the same structure. 


Conditional tests may be used to decide whether to include or omit lines 
and/or fields in reports. Control breaks on input fields can produce detail 
summary lines. Report and page heading and footing capabilities are provided. 


It is assumed that the person writing source programs is an experienced 
programmer. However, the person triggering the running of an object program 
need not be a programmer, whether such triggering is done from Multics command 
level or by a Logical Inquiry and Update System (LINUS) report request. 


COMMAND PROCESSOR VS. I/0 MODULE 

An MRPG-OS can be invoked from Multics command level in exactly the same 
Manner aS system commands, for example: 

name of the MRPG-OS {arguments} 

When using this method, the input file must be in an existing segment 


before the MRPG-OS is invoked. 


Another method, the one used by LINUS, involves the report _ I/0 module. 
ASCII records built by another program are sent via report _ to the MRPG-OS. 
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MULTIPLE USE OF INPUT DATA 


In the simple, straightforward case, the input records are processed as 
they are received to produce the output report. An MRPG program can process the 
input data more than once. For instance, produce a report from the input data 
records in their original sequence, sort them into another sequence and produce 
a different report. When such multiple passes over the input data occur, the 
original input is read only once and is saved ina temporary file for later 
reuse. 


EXAMPLES 


Section 2 presents a complete example that includes” examining the data 
available in a file, writing the source program, executing the object segment, 
and the printing of reports. Other sections contain fragments of programs, 
where the fragments are chosen to illustrate specific points. 


As an aid to the person becoming familiar with MRPG, the input file and the 
source program described in Section 2 are also available on the system (if the 
unbundled MRPG has been ordered and received). The reader can copy and modify 
the source program, generate anew object program, and run it using the same 
input file as is used in Section 2. A few more example programs are also 
provided on the system with the MRPG package. See Appendix B for the details 
concerning the content and location of the example input files and _ source 
programs. 
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SECTION 2 


A COMPLETE EXAMPLE 


The example described in this section is intended to assist the reader in 
becoming familiar with MRPG. This is an artificial example designed to 
illustrate many MRPG features, and therefore, may appear to be moderately 
complicated when it is read for the first time. Section 5 contains a large 
number of examples of individual statements, each of which is treated in an 
isolated manner. This section provides an integrated, complete example. 


An input file, an output report, and the MRPG source program used to 
produce the report are shown. Within the source program, the "{i" symbol stands 
for the concatenation operation. The “":=" symbol specifies an assignment 
operation. 


The input file and the MRPG source program are available on the user's 
system if the unbundled software is installed. The MRPG input file and the 
source program are in an archive: 


Archive: >system_ library unbundled>mrpg examples.archive 


Input File: filing cabinet.mrpg.input 


source Program: filing cabinet.mrpg 
Appendix B explains how to obtain and run this example. 


A discussion of the actions that are involved in buiiding the input, 
preparing the source program, converting the source program into an object 
program, and producing the report are included with the example. 


THE INPUT FILE 


Figure 2-1 contains a nine record input file. The file is a Segment 
containing only ASCII characters. Each record ends with a newline character. 
Neither the heading lines nor the left column (Record) are present in the input 
file. They are included only for purposes of illustration and ease of 
understanding. The four data columns’) and the remarks column comprise the file. 
The remarks are ignored because the file is declared as a stream file and only 
the first four fields are declared as being part of the file. 
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THE REPORT 


Figure 2-2 is the report produced when the program in Figure 2-3 receives 
the input file shown in Figure 2-1 and no arguments are supplied at the time 
that the object program is invoked. The column of line numbers at the left of 
the report are not part of the report, but are included to simplify discussing 
specific lines in the report. If the -file argument was supplied when the 
object program was invoked, then lines 1 to 3 of Figure 2-2 would not be 
produced and a newpage character (014 octal) would follow the last line. The 
report contains only ASCII characters. 
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Record 
No. The Actual Input Data Records 


10 30 The input data lines are sorted in the desired 
34 50 order. Therefore, another sort phase is not required in 

1 60 the program. 
32 50 These comments are ignored by the procedures that read the 
input (i.e., read the 14 declared characters and skip until 
40 100 the next newline character is passed over). Skipping 

O© 100 to a newline occurs because the input file declarations 

8 250 include the "stream" keyword. Each record in this file 

3 300 ends with a newline character. 


WO MOAADNDU FWD = 
yr rhOaQockca 
WM fh) U1 EM U1 FP 

—_ 

(-) 

io) 

CO 

By 


Figure 2-1. A Sample MRPG Input File 


Line 
No. The Actual Output Lines 

1 

2 

3 

4 FILING CABINET INVENTORY AS OF 02/13/78 

5 

6 

di Grade: Commercial -- Purchased from: Cranston Office Furniture 
8 2 

g No. of Drawers Quantity Unit Cost Extended Cost 
10 

11 moon te | $2 t-te ee eg - - - 5 - - + - - - = 8 
12 

13 a 32 $ 50 $: F,600 
14 4 100 $ 84 $ 8,400 

15 5 40 $ 100 $ 4,000 

16 

17 TOTALS: QUANTITY = 172 COST $ 14,000 

18 

19 

20 Grade: Fireproof -- Purchased from: Firesafe Specialities 
21 

22 No. of Drawers Quantity Unit Cost Extended Cost 
23 

24 wonton | --- - 4 - 2 -  - 3 -  e  - - 5  - - -  - - - - 
25 

26 2 0) $ 100 $ 0 

27 4 8 $ 250 $ 2,000 

28 5 5: $ 300 $ 900 

29 

30 TOTALS: QUANTITY = 11 COST $ 2,900 

31 

32 

33 Grade: Utility -- Purchased from: Universal Metal Products 
34 

35 No. of Drawers Quantity Unit Cost Extended Cost 
36 

37 wate | --- - + - - - 2 - - - - ¢ -  - - 33  - - - ¢ - -  - - - -5 -- - - + - - -- 6 
38 

39 2 10 $ 30 $ 300 

40 4 34 $ 50 $ 1,700 

4 5 1 $ 60 $ 60 

42 

43 TOTALS: QUANTITY = 45 COST $ 2,060 

Hy 

45 

46 GRAND TOTALS: QUANTITY = 228 COST = $ 18,960 


Figure 2-2. A Sample MRPG Report 
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No. The Actual Source Program Lines 

/* A sample program to illustrate many of the MRPG features. This is 
* filing cabinet.mrpg in >unbundled>mrpg _examples.archive */ 

declare 1 parameter, 2 where to_send_output boolean key ("-fiie"); 


declare 1 input stream 
file "filing cabinet.mrpg.input", 


2 grade char(1) position 1, 

2 drawers dec(1) position 4, 

2 quantity dec(3) position 7, 

2 unit_cost dec(3) position 12; 
declare quantity total dec; declare quantity grand total dec; 
declare cost_total dec; declare cost_grand_total dec; 


declare grade _ code to name table 


("oe -> "Commercial® "f" -> "Fireproof" "u" -> "Utility"™) varying; 
declare grade code to supplier table 
( "ce" -> "Cranston Office Furniture" 


"fr" -> "Firesafe Specialities" 
"u" —> "Universal Metal Products" ) varying; 


define 1 report filing cabinet inventory break (grade) pagelength 46 
on (file "filing _ cabinet.report" if (where_to_send_output) 
or switch "user _output"), 


2 pagehead, 3 line 4, 4 "FILING CABINET INVENTORY AS OF " {|| mmddyy, 
3 line se 

2 detailhead grade, 

3 line +3, 

4 "Grade: ", 

4 transform (grade, grade code to name) let (quantity _total := 0;), 

4 "-—~ Purchased from: ", a 

4 transform (grade, grade _code_to_ supplier) let (cost_total := 0;), 

3 line +2, 

4 "No. of Drawers" column 11, 4 "Quantity" column 26, 

4 "Unit Cost" column 36, 4 "Extended Cost" column 47, 

3 line +2, 
/* Next line provides column numbers for the reader's convenience. */ 

Y Wl 4 ee | e+ 2 - $+ - 33 ee 4 - 5 - - - + - = - 6", 

3 line, 
2 detail the data line, 

3 line, 

4 drawers column 17 picture "9", 

4 quantity column 31 picture "zz9", 

H unit cost column 37 picture "$z,zz9", 

4 quantity * unit cost column 51 picture "$22,229" 

let ( quantity total := quantity total + quantity; 


cost total := cost total + quantity * unit_cost; ), 
2 detailfoot grade, 


3 line +2, 

yo" TOTAL S: QUANTITY = ", 

4 quantity total column 30 picture "zzz9", 

4 "COST" column 44, 

4 cost total column 50 picture "$zzz,zz9" 

let C(quantity_ grand total := quantity grand total + quantity total; 
cost _grand_ total := cost _grand_ total + cost_total; ), 

2 pagefoot, 

3 line 46, 

4" GRAND TOTALS: QUANTITY = ", 

4 quantity grand total column 29 picture "zzzz9", 

4 "COST =" = column 40, 

4 cost_grand total column 49 picture "$zzzz,zz9"; 
begin ( quantity grand total := 0; cost grand total := 0;) 
-print the _data_line; end; 


Figure 2-3. A Sample MRPG Source Program 
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THE SOURCE PROGRAM 


Figure 2-3 shows the MRPG source program. A text editor is used to build 
the lines of the source program and to write the program into a segment with the 
suffix mrpg as the last component of the segment's name. The program could have 
been built with fewer characters and with fewer lines. It was deliberately 
built as it is to clearly show the hierarchal structure of the input file and of 
the report definition. The source program contains oniy ASCII characters. 


THE OBJECT PROGRAM 


The source program in Figure 2-3 is converted into a standard Multics 

object segment as follows: 

Ts Change to a directory in which the user's process can create segments. 

ee Extract an exec com from the archive by typing: 

ac x >unb>mrpg examples run_mrpg examples.ec 
c= Invoke the exec com by typing: 
ec run_mrpg examples 

4, A menu of sample programs is displayed. A request is made to type in 
one of the menu numbers. Type in the menu number for’ the 
filing cabinet example. 

5. The MRPG language translator types out MRPG, reads in and processes 
the source program, and generates a PL/I source program that is 
written into the user's working directory with the name: 

filing cabinet.pl1 
The MRPG then automatically invokes the PL/I compiler. It types out 
PL/I and compiles the PL/I source program into an object program in 
the user's working directory with the name: 
filing cabinet 
6. The user is asked if any more examples are to be run. Type "no" and 


control will return to the Multics command level. If ready messages 
are enabled, a ready message is typed. 


PRODUCING THE REPORT 


A choice must be made, namely, where is the report to appear. If it is to 
be typed out directly onto the terminal, then step 1 below is applicable. If 
the report is to be written into a segment for later use, tnen step 2 is 
relevant. 

1. Invoke the object program by typing: 


filing cabinet 


The object program reads in the input file and types out the report on 
the user's terminal after which control returns to command level. 
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2. Invoke the object program by typing: 
filing cabinet -file 


The object program reads the input file and writes the report into a 
segment named: 


filing cabinet.report 


in the user's working directory after which control returns to command 
level. The following paragraph discusses how to have the segment 
printed. 


PRINTING THE REPORT 

A report that is in a segment in the user's working directory may be 
displayed on a terminal by typing: 

print filing cabinet.report 
or may be printed on the high-speed line printer by typing: 


dprint filing cabinet.report 
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SECTION 3 


LANGUAGE CONCEPTS 


The MRPG language is defined in Section 5 with some introductory material 
and 18 sets of information. The term "group" is used to refer to one of these 
18 sets. Each group contains a COBOL-like general format diagram, and (1) 
examples, (2) syntax rules, and (3) general rules applicable to the group. 


RELATIONSHIP TO PL/I 


Because the MRPG language translator generates a PL/I source program that 
is then compiled by the Standard PL/I ‘compiler, some MRPG language 
characteristics are actually PL/I characteristics. An example is the current 
limit of 256 characters for the length of a user-defined name. Another example 


is the definition and treatment of pictures ("zzz,zz9v.99"). Should such 
characteristics change in PL/I, then the new PL/I characteristic also becomes -- 
instantaneously -- the new MRPG characteristic. 


For complicated characteristics, rather than duplicate substantial portions 
of the PL/I manual in this manual, references are made to the PL/I manuals. In 
some instances, the amount of text required to state the PL/I characteristic is 
small. In these cases, the PL/I characteristic is restated in this manual. 


tl. ae oar nat nu. Of /T mharanntawrtatin aa -abear +] eh 2 anal maral = 
Wnetner or not Une rest CMNaracverisvic 15 Svaveaqd if tnisS Wanuai, or mereiy a 


reference appears, this manual identifies such characteristics with the 
following sentence: 


This is a PL/I characteristic. 


The significance of the above remark is that the authoritative, governing 
documentation is found in the PL/I manuals. 


CHARACTER SET 


The entire 7-bit ASCII character set is available for use in an MRPG source 
program and in the input file. 


An MRPG source program can be thought of as containing three domains: 


e Quoted strings ("A quoted string.") 
® Comments (/* A comment. */) 


® Everything else 
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The full ASCII character set can be used for quoted strings, comments, and 
in the input file without causing problems. 


Only the following characters are valid in the "everything else" domain. 
When nonprinting characters that are not listed below are encountered between 
language elements, such nonprinting characters are ignored (normal program 
generation and compilation occur). Nonvalid printing characters encountered 
between language elements cause an MRPG warning message to be sent to the user 
and then these nonvalid printing characters are ignored (normal program 
generation and compilation occur). Nonvalid characters within language elements 
yield error messages and program generation does not occur. 


Valid printing characters: 


The 52 uppercase and lowercase letters. 
The 10 digits. 

» Comma 

Semicolon 

Left parenthesis. 

Right parenthesis 

Underline (Underscore) 

Plus 

Minus (Hyphen, Dash) 
Asterisk 

Right slant (Slash) 

Less than 

Equals 

Greater than 

Ampersand 

Vertical line (Vertical bar) 
Cirecumflex (Caret) 

. Period (Decimal point, Dot) 
% Percent 

: Colon 

" Double quote (Quotation mark, Quote) 


a 


——- RYAN I + 


Valid nonprinting characters (white space): 


Space 

Horizontal tab 
Newline (Line feed) 
Vertical tab 
Newpage (Form feed) 


Several of the printing characters are valid only at particular places in 
an MRPG source program. Examples are the & (for a logical AND operation) and 
the %@ (to call a builtin function). These cases are described in Section 5. 


INPUT FILE 


The input file is assumed to be a file of 9-bit ASCII characters. Any 
ASCII character may reside in the lower seven bits of each 9-bit character. The 
two high-order bits of each 9-bit character must be zeros. 


The file must be a canonical file. See the MPM Reference Guide for the 
definition of and a discussion about canonical files. The "canon" command, 
described in the MPM Commands, may be used to convert a non-canonical file into 
a canonical file. 
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CHARACTER 
The « 

used to fo 
<SPa 
<NL> 
£HT> 
<VT> 
&NP> 
<BSPa 


Conve 
meanings a 


COMBINATIONS 
> character combinations are not part of the MRPG iwapuare: They are 
rm adbreviations in this section and include: 
space 
newline (line feed) 
horizontal tab 
vertical tab 
newpage (form feed) 
backspace 
ntional keywords are formed from printable characters. Special 
ttached to certain printable character combinations are: 
concatenate operator 
assignment operator 
Start of a comment 
end of a comment 
translation operator (in tables; see the Declare Variable group) 


a keyword denoting the end of an IF statement in the Execute Phrase 
group 


conventional ellipsis 


a keyword specifying that backspace characters may be present in the 
character expression (see the Report Field Def group). 


ELEMENTS OF THE LANGUAGE 


A source program contains the following types of elements: 


e MRPG reserved words 
e Comments 

e Separators 

e User-defined names 


e Quoted strings 


e Integers and numbers 
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MRPG Reserved Words 


These words may be used in MRPG source programs, but must not appear in the 
program as user-defined names. A complete list is given in Appendix A. 


KEYWORDS 


A keyword is an MRPG reserved word whose presence is required when the 
format in which the word appears is used in a source program. A few of the 
keywords are: 


DECLARE 
PAGELENGTH 
PRINT 

VAR 
VARYING 


Unlike COBOL, MRPG has no optional words. 


Within each format, the keywords are shown in uppercase. However, when 
they are used in a source program, they can be in lowercase, uppercase, or a 
mixture. That is, declare, DECLARE, Declare, and dEcLaRe are equivalent. 


In one sense, the digits 0, 1, 2, 3, and 4 are keywords, because they are 
Specifically called for in certain formats, for example: 


DEFINE. 1 REPORT  ..., 
2 REPORTHEAD ... 


but these digits are also available for use elsewhere in the source program. 
Therefore, these digits are not reserved words. 


PUNCTUATION 


Only the comma and the semicolon are used as punctuation characters. Both 
the comma and the semicolon are used to delimit major portions of the program. 
In such usage, the comma is at a lower hierarchial level than the semicolon. In 
addition, the comma may be used to separate items ina list. Section 5 
specifies where commas and semicolons must be used. 


SPECTAL-CHARACTER WORDS 


e Arithmetic operators (e.g., + and -;) 
© Relational operators (e.g., < and =) 
e Logical operators (e.g., & and “~) 


may be thought of as reserved words, as is done in COBOL, because they have 
Special meanings within the MRPG language and because they are not available for 
indiscriminate use by the programmer. 
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Comments 


Comments can only exist outside of quoted strings and between language 
elements. 


A comment begins with a /* {character pair) and ends with the next #/ 
(character pair). The beginning and ending /* and */ characters are considered 
part of the comment. 


The /* */ pairs and all intervening characters are ignored by the MRPG 
language translator. 


The following example illustrates several situations of interest. In each 
case shown below, the English text between the /* and the next */ is a true 
remark about the situation. Notice that one of these situations is not valid. 


/* A comment can be at the beginning of the segment that contains the MRPG 
source program. */ 


declare 1 parameter... 
decla/* This will result in an error. ¥/re 1. ... 


declare/* Valid to have the starting / immediately after the end of a word 
and also valid for the ending / to immediately precede a word 
(i.e., it is not necessary for a space character to precede the 
/* pair nor to follow the */ pair). */1 input ... 


/* This six-line comment includes four blank lines. 


*/ 


declare average decimal; /* Explanatory remarks. */ 


define 1 report payroll 


/* If the * / are separated, they do not end the comment. */ 


/* Another /* does not "nest" comments. Only one asterisk right slant is 
needed to terminate a comment. */ 


pagelength 66 


/* The next two lines divide the sum by a count. */ 
average 1 := sum/* Confusing, but valid comment.*// count_1; 
average 2 := sum//* This is also valid. */count 2; 
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end; 


/*® A comment can be at the end of the segment that contains the MRPG source 
program. */ 


Separators 


Elements of an MRPG source program are separated by one or more separator 
characters. The most commonly used separator characters are the white space 
characters. Their name, octal value, and graphic representation in this section 
are: 


Space octal O40 <SPa 
Horizontal tab octal 011 <HTa 
Newline (Line feed) octal 012 «NL> 


Other white space characters are: 


Vertical tab octal 013 <VT> 
Newpage (Form feed) octal 014 «NP» 


In a strict technical sense, the characters discussed in the next few 
paragraphs are not’ separators. However, they can perform the function of 
delimiting language elements. 


When called for in a general format, the following characters separate and 
delimit language elements: 


Comma : 
Semicolon : 

Colon followed by equals t= 
Quote " 
Left parenthesis ( 
Right parenthesis ) 
Hyphen followed by greater than - 
Percent t 


In addition, the /* and */ (character pairs), which delimit the start and 
end of comments, also separate and delimit language elements. 
The nonalphabetic language elements: 
+o=— © f | 4 << 8 d= > “es | & * Th © ) © te => 
also function as separators, and therefore, do not need to be surrounded by 


separators, but their alphabetic equivalents, such as LT and NOT, must be 
Surrounded by separators. 


In these examples, when there is a gap between characters, that gap 
represents one or more white space characters. 
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The line: 
del «SPa1<SPrinput 
is equivalent to: 


dcl<HTa<HTal <HT><S Pa<hHTainput 


The line: 

del fives set (5, 10, 15) ;«NL»> 
is equivalent to: 

del fives set(5,10,15);«NL> 
which is equivalent to: 

dcel<SPafives<NL> 

<NLa 

&NL> 

£NL> 

set(5,<NL> 

10,15); <NL> 
The line: 

del kind table ( 2 -> "Bicycle" 4 -> "Car" ) 3; «NL> 


is equivalent to: 


del kind table (2->"Bicycle"4->"Car") ; <NL> 


The line: 


del subtotal dec ;<NL> 
del total dec ;<NL> 


is equivalent to: 


del subtotal dec;del total dec; <NL> 


However, the quoted string: 
"United<SPastates" 

is different than: 
"United<HTaStates" 

and both differ from: 


"United<NL> 
States" 


although all three forms are valid quoted strings. 
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User-Defined Names 


A user-defined name is an MRPG word that the user specifies to satisfy the 
format of a clause or statement. The characters that may be used are the 52 
uppercase and lowercase letters, 10 decimai digits (0-9), and the underscore 
character (_). All of the names defined by the user must’ be unique and must 
begin with one of the 52 alphabetic characters. The) maximum length of a 
user-defined name is 256 characters. These are PL/I characteristics. 


In all the groups, the lowercase character strings that have a name suffix 
identify those places where the user must define a name. The complete list of 
these names is: 


parameter name 
input field name 
local variable name 
set variable name 
table variable name 
report name — 
detail name 


The PL/I source program that is generated and compiled based on the user's 
MRPG source program uses’ several internal names. The internal names all begin 
with a two-character sequence of one uppercase letter followed by one underscore 
character. Therefore (to avoid conflict), no user-defined name can begin with 
an uppercase letter followed by an underscore. 


Unlike the situation with MRPG keywords where uppercase letters are not 
distinguished from lowercase letters (e.g., declare and dEcLaRe are equivalent) 
the distinction is made for user-defined names. Thus, Payroll and payroll are 
two unique names. 


Quoted Strings 


The reader will encounter elements such as "string-1" at several places 
throughout the group diagrams in Section 5. Any ASCII character can be placed 
between the starting quote character and the ending quote character. 


If the user intends to construct a printed string that contains a quote in 
the output, two adjacent quotes for each quote desired in the output plus one 
additional quote at both the beginning and end of the string must be supplied. 


MRPG Source Program Printed Output 
"The simple case." The simple case. 
"""Normal quoting .""" "Normal quoting." 
"rremouble quotes, urn ""Double quotes."" 
"Quote in "" middle." Quote in " middle. 


The maximum length of a quoted string in the source program is 254 
characters. This count is determined after: 


Ls Removing the string containing quotes (beginning and end) 


2s Replacing all pairs of adjacent quote character with one quote 
character 
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This is a PL/I characteristic. 


Integers and Numbers 


Integers can be formed from the ten decimal digits (0-9). Internally, 
integers are kept in fixed binary(35) format. 


Numbers can be formed from the ten decimal digits (0-9) and the decimal 
point. Internally, numbers are kept in float decimal(20) format. The maximum 
quantity of significant digits that are retained to express the value of a 
number is 20 digits. (Refer to “Table 6-2" for an example of a 20-digit 
number .) 


DEFAULTS 


If certain phrases are omitted in a program, default actions are taken, or 
default values are assumed. (Refer to Section 5 for specific default conditions 
related to the individual group description.) 


DEFINE BEFORE REFERENCE 


A data item must be defined in a DECLARE OR DEFINE statement before a 
reference can be made to that data item. The definition can occur in an earlier 
portion of the statement in which the reference occurs. Some examples are: 


declare 1 input, /* this example is valid */ 
2 length of name dec(4), 
2 item_name char(length of name), 
2 item quantity dec(6); 


declare 1 input, /* but this example is in error, because the reference to 

length of name in the parentheses occurs before the 
declaration of the input field length_of name is 
encountered. Even though the declaration of length _of_name 
occurs on the same line as its use as a_ reference inside 
the parentheses, the program is in error. */ 

2 item_name char(length of name), 2 length of name dec(4), 

2 item quantity dec(6); 


DATA CONVERSION 


If a numeric value occurs in a context where a character string is needed, 
the necessary conversion occurs automatically. The length of the converted 
string is the same as the quantity of nonblank characters that appear if the 
number is printed on a terminal. Similarly, if a character string occurs in a 
context where a number is’ needed, the conversion occurs automatically provided 
that the characters in the string are valid components of a number. (This topic 
is covered in depth in Section 6.) 


These examples illustrate the rules governing data conversion. The use of 
b in the second example stands for a space character. 
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1. Number occurs where character string needed: 


Internal Number Character String String Length 
123 123 3 
4.56 4.56 4 
-~.007 -0.007 6 


It is not possible to have a plus’ sign, or, leading or trailing zeros 
or blanks in the converted string. 


2. Character string occurs where number needed. 
Character String String Length Internal Number 
987 3 987 
654666 6 654 
6326 4 32 
661.096 7 1.09 
BbbbKL-. 006 11 -.006 
0034.5600 9 34.56 
+4 2 4 
abe 3 error 
d5 2 error 
6e 2 error 
7.8.9 5 error 
+34+456 6 error 
7T89- 4 error 


The only valid characters in the character string to be converted 
are the decimal digits, a leading plus sign, a leading minus sign, and 
not more than one decimal point. Leading and trailing zeros and 
Spaces are stripped off. 


NUMBERING CONVENTIONS 


In general, numbering of items begins with one, not zero: 


Number of 
First Item Item Description 


1 Character positions within an input record. 
1 Characer postions within a string. 

1 Column positions within a report line. 

1 Lines in a report page. 

1 Sub-report numbers within a report. 

1 Control break levels. 


0 Phase numbers in the comments in the generated PL/I 
statements. 
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SECTION 4 


NOTATION DEFINITION AND EXPLANATION 


Several examples appear at the end of this section to assist the reader in 
understanding the notation used in later sections of this manual. 


SYMBOLS USED IN GENERAL FORMATS 


In addition to keywords and punctuation, the general format diagrams also 
contain brackets, braces, ellipses, and vertical double bars. Each of these 
items is discussed below. 


Words and Phrases 


Three types of English-appearing words and phrases exist in the general 
formats: 


e WORDS IN ALL UPPERCASE LETTERS 
& Words With Initial Caps 


& words in all lower_case 


Each of the uppercase and lowercase types identify a different kind of 
language element. The terms in ALL UPPERCASE LETTERS are usually one word. If 
the term involves more than one word, the words are separated by one or more 
white space characters. Most terms with initial caps and with all lowercase 
consist of more than one English word with the words connected by underline 
characters. A few of the initial cap terms and the all lowercase terms consist 
of one word. 


ALL UPPERCASE 


Text in all uppercase letters (e.g., DECLARE and PRINT) specifies keywords 
of the language. These words must be spelled exactly as shown in this text. 
Frequently, abbreviations exist for the English words. If the user chooses to 
select the abbreviation, then it must also be spelled exactly as shown. 


There are no optional words within an MRPG phrase. Therefore, this manual 
does not distinguish keywords from optional words. Consequently, underlining of 
keywords is not used as it is in COROL manuals. 
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INITIAL CAPS 


Terms such as Declare Input File and Char_Fxpr are names of groups. These 
names can be thought of as abbreviations for groups. 


The hyphen and digit at the end of an initial cap term (e.g., Char Expr-3) 
is used to distinguish between different meanings of the information whose 
syntax is defined by another group. In COBOL manuals, the trailing identifiers 
in one general format have no relation to the trailing identifiers in another 
general format (i.e., in COBOL manuals, the numbering starts over at 1 again for 
each group). However, in this manual, the numbering carries across all groups. 
Lowercase terms with the same meaning have the same trailing identifier. Thus, 
the meaning for the value represented by Full Expr-4 in the Footing group is tne 
Same as for the value represented by Full _Expr-4 in the Heading group. 


ALL LOWERCASE 


Terms such as “input field name" and "integer" identify places where the 
user must supply a name or ae value. Fach term specifies what type of 
information must be supplied. Thus, when "input field name" is encountered, the 
name written in the program at that point must be a name that is defined earlier 
in the program as the name of an input field. The term "integer" means that an 
integer must be supplied. Integers do not include decimal points. Therefore, 
Supplying a number such as 7.3 is invalid. The applicable syntax and general 
rules clarify each situation. 


The hyphen and digits at the end of the all lowercase term is the same as 
for initial cap terms (e.g., integer-19) and is used to distinguish between 
different meanings of the information that the user must supply. Thus, the 
meaning of "integer-13" in the Footing group is the same as "integer-13" in the 
Heading group. 


Brackets and Braces 
Brackets and braces have the same meanings as in COBOL documents: 


@ Brackets [| enclosing a portion of a general format indicate 
that either all of the options within the brackets 
may be omitted, or one but only one of the options 
within the brackets must be selected. 


® Braces {} enclosing a portion of a general format indicate 
that one, but only one, of the options within the 
braces must be selected. 


In both cases, options are stacked vertically within the braces or 
brackets. Occasionally, text is too long to fit onto one line -~ in cases of 
this nature continuation is indicated by indenting the continuing lines a few 
column positions. 


Braces and brackets always occur in balanced pairs. Further, the two 
matching items are the same height. When nesting of braces or brackets occurs, 
a brace or bracket is always higher than the next inward brace or bracket. 


iso CC69 


Ellipses 


As in the general formats of COBOL, an ellipsis (...) represents the 
position at which repetition may occur at the user's option. The portion of the 
format that can be repeated is: 


hee Select an ellipsis. 

24 The brace or bracket that immediately precedes the ellipsis is the 
closing brace or bracket for the portion of the general format that 
can be repeated. Starting at this closing. brace or bracket, scan to 


the left to locate the logically matching opening brace or bracket. 


33 The ellipsis applies to that portion of the general format between 
these opening and closing braces or brackets. 


Double Bars 


MRPG permits some options to be used in any order. Further, some options 
may be used many times, but such multiple usage may be interlaced with the 
multiple usage of other options (several examples are presented later in this 
section). The MRPG notation is an extension of the notations: 


* {loptionsl[} as defined in Section 1.3.1.6 (May 76/76010) of the 
CODASYL Programming Language Committee COBOL Journal of 
Development. The brace and bar notation means that a 
selection of one or more of the options must be made, 
but the same sequence of words (option) ‘must... not be 
chosen more than once in -that-éntry or statement.:. 

# = |loptions|| as defined in Section 3.0.1 of the May 1977 draft of 
the CODASYL Data Description Language: Committee: DDL 
(Data Description. Language) Journal of . Development. 
The double bar notation + means that at least one, option 
must occur and at most, one of each option may occur. 


An explanation of the MRPG notation is included after the figure. The 
letters X, Y, and Z are present to facilitate this discussion. 


bd The (7) 


options 
are 
stacked 


X here. 


Figure 4-1. Generalized MRPG Double Bar Notation 


The double bars mean that more than one of the options can be chosen. 
Further, when more than one option is chosen, they can be chosen in any order. 
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The letter X indicates the physical placement for the character that 
specifies the minimum quantity of options that must be selected from the set of 
options within the double bars. The value of X¥ is either the digit zero or the 
digit one. If zero, all of the options can be omitted. If one, at least one of 
the options must be chosen. 


The letter Y indicates the physical placement for the character that 
specifies the maximum quantity of times that each option can be selected. The 
value of Y is either the digit one or the letter "n". If one, any option that 
is selected can be selected only once. If "n", each option can be selected as 
many times as desired. 


It should be noted that the X, which is associated with a minimum value, is 
placed physically lower in the figure than the letter Y, which is associated 
with a maximum value. Thus, the maximum-limit character is physically higher 
than the minimum-limit character. 


The letter Z indicates the physical placement for the character that 
specifies the delimiter which is required between multiple options. The circle 


that the Z is within is part of the double bar notation. Nsually, a space 
character is the between-options delimiter (i.e., the circle appears’ to be 
empty). Sometimes a comma is in the circle (i.e., a comma is required between 


options that are selected from the set of options within the double bars). The 
delimiting character is not a trailing character, but is a "between" character. 
(That is, the delimiting character is not used in front of the first option 
selected, nor is it used after the last option selected.) 


Occasionally, the delimiting character is longer than one character. In 
such situations, the circle becomes two semicircles with the delimiter 
in-between the semicircles. See the Char_Expr general format diagram in Section 
Dis 


EXAMPLES OF FORMAT NOTATION 


These examples use words and options that are constructed for illustrative 
purposes only and bear no relation to the actual MRPG language. 


1. Consider: 


cat 
dog 
pig 


The set of all possible choices is: 


a. cat 
b. dog 
ec. pig 


2. Consider: 


rat 
hen 
fox 


The set of all possible choices is: 


a. omit everything 
D. rat 
Cc. hen 
d. fox 
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Consider: 


oe f cats } 
oe { dogs. 


The set of all possible choices is: 


three cats 
three dogs 
seven cats 
seven dogs 


a0 0 


Consider: 
hen 
pig 


There are an infinite number of possibilities. Several of the 
possible choices are: 


a. hen 

b. pig 

Cy hen pig 

d. pig hen 

e. hen hen hen hen pig hen hen pig 


Consider: 


O 


The set of all possible choices is: 


1 cat 
dog 


fox 


1 


a. cat 

Be dog 

Cc. fox 

d. cat dog 

é. cat fox 

f cat dog fox 
am cat fox dog 
ns dog cat 

n dog fox 

A dog cat fox 
kK. dog fox cat 
a fox cat 

m. fox dog 

n. fox cat dog 
Oo. fox dog cat 


Consider: 
1 cat C) 
dog 
OW fox il 


The only difference from the previous example is that the lower left 
digit is a zero, rather than a one. The _ set of all possible choices 
is the same as for the previous example except that there is one more 
choice, which is to omit everything. 
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ts Consider: 
n hen C) 
0 pig 


There are an infinite number of possibilities, because there is an "n" 
at the upper left. Several choices are: 


a. omit everything 

Bis hen 

Cs pig 

dx hen,pig 

e. pig,hen 

t; hen,hen,pig,pig,pig,pig,hen,hen,hen,hen,hen,pig 


Observe that no spaces are present either before or after the comma in 
the circle at the upper right of the double bars for this example. 
However, it is valid to have white space before, after, or both before 
and after the comma, because of MRPG's treatment of white space (i.e., 
white space between language elements is ignored). 


8. Consider: 


A long phrase A long phrase 
? 
Yet another even longer phrase Yet another even longer phrase 


One of the possible choices is: 


A long phrase, Yet another even longer’ phrase, Yet another even 
longer phrase, A long phrase, A long phrase 


Inelusion of the above in a general format diagram consumes 
substantial horizontal space. The following double bar notation 
specifies the same rule in much less space. 


n 
1 


A long phrase 
Yet another even longer phrase 


9. Consider: 


A cat is a four-legged animal with hair. 
Hen, two legs, feathers. 


Sometimes lengthy formats such as this, in combination with other 
portions of a general format do not fit on one line, hence text must 
be folded with indentation onto one or more continuation lines. The 
next two diagrams are equivalent to the above diagram. 


A cat is a four-legged 
animal with hair. 
Hen, two legs, feathers. 


A cat is a 
four-legged 
animal 
with hair. 

Hen, two legs, 
feathers. 
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SECTION 5 


DEFINITION OF THE LANGUAGE 


INFORMATION IN THIS SECTION 


This section contains a complete, detailed definition of the language and 
includes the rules governing the writing of source programs. The 18 groups of 
information that specify the MRPG language are physically arranged in 
alphabetical order. Users with moderate to complete familiarity with the MRPG 
language can write most programs with the aid of Appendix D only. That appendix 
contains all of the general format diagrams arranged in hierarchal order. When 
a detailed explanation of a particular area is required, the alpnabetical 
arrangement of the groups in Section 5 facilitates speedy location of the 
desired information. 


This section is physically organized as: 1) a skeleton of the material 
within each group, 2) a set of rules that apply to all groups, and 3) the 18 
groups discussed in alphabetical order. 


MANDATORY GROUP SEQUENCE 


Several of the groups must appear in a specific sequence whenever these 
groups are present in a program. Some of the groups may be repeated, but the 
sequence shown below must be preserved. Indentation represents a subservient 
group. 


The MRPG Program 
Declare Parameters 
Declare Input File 
Input Field Def 
Declare Variable 
Define Report 
Report Control 
Heading 
Line 
Report Field Def 
Detail ~ ~ 
Line 
Report Field Def 
Footing 
Line 
Report Field Def. 
Execute Phase i =~ 


Figure 5-1. Mandatory Group Sequence In A Program 
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SUGGESTED READING SEQUENCE 


A semiboxed heading appears at the top of each page, giving the name of the 
group being discussed on that page. The first time that this manual is read, 
the reader may find it desirable to read the 18 group discussions in the order: 


The MRPG Program 
the overall structure of a program 


Declare Parameters 
declare all parameters to be used including their attributes 


Declare Input File 
identify the input file and its fields 


Input Field Def 
Specify the attributes of one input field 


Declare Variable 
specify the name and attributes of one varvabas 


Define Report 
identify a report 


Report Control 
specify several major properties of a report 


Heading 
specify controls for report, page, and detail heading lines 


Detail 
specify controls for a set of detail lines 


Line 
specify line controls for one line including fields in the line 


Report Field Def 
specify the value and format for one field 


Footing 
specify controls for detail, page, and report footing lines 


Execute Phase 
Specify the order in which sorts, lines, and reports are done 


Full Expr 
Relationship Test 


Char_Expr used to form expressions and make tests 
Char Ref 
Arith Expr 
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The Name Of The Group The Name Of The Group 


Group Name: The Name Of The Group 


A few lines of text here summarize the general purpose of this 
portion of the language. 


General Format: 


A diagram that specifies a portion of the MRPG language in a 
COBOL-like notation. Most diagrams reference other groups. 


Examples: 


One or more examples 
format. 


illustrating specific points of the general 


Syntax Rules: 


Several numbered paragraphs that define, clarify, or restrict the 
exact manner in which this portion of a program must be written. 


General Rules: 


Several numbered paragraphs that define, clarify, or restrict the 
content, and structure of the variable items shown in the 


2 
Savevnem 


Figure 5-2. Skeleton for Section 5 


RULES APPLICABLE TO ALL GROUPS 


The remainder of this section consists of the general formats and includes 
related examples, syntax rules, and general rules. The following paragraphs 
apply to every group. They are stated here so that they need not be repeated in 
the discussion of each group. 


et A term formed from words with initial capitals connected by underline 
characters (e.g., Declare Parameters) refers to a group. Think of a 
group name as being an abbreviation for that group. The overall 
effect is to perform a group explosion, analogous to a parts 


explosion. 
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The dash and number (e.g., -5) at the end of a term serve to identify 
terms with unique meanings. Terms ending in -0 identify the point at 
which the all lower case term is "defined" (i.e., the point at which 
the properties and characteristics associated with the all lower case 
term are established). Terms ending with other than -0O are places in 
which the term is used. 


Within the examples in this section, the following names and character 
strings have these meanings: 


your _mrpg os 
The name of the MRPG object segment. Thus, this is the 
character string typed to invoke the MRPG-OS from Multics 
command level. The MRPG-OS is assumed to be in the current 
working directory. 


your input 
The name of the segment that contains the input file. It 
also is assumed to be in the current working directory. 


report 
The name of a report. 


your output 
When the report is written into a segment, this is the name 
of that segment. It too is assumed to be in the current 
working directory. 


Within the examples, unless stated otherwise, assume that the MRPG-OS 
is invoked by the user typing on a terminal at command level and that 
messages sent to user_output and to error output are also typed on the 
terminal. 


Uniess stated otherwise, the maximum length of a character string is 
256 characters. 


Unless stated otherwise, the characters used in a character string may 
be chosen from the full (128) ASCII character set. However, the NUL 
character, octal 000, and the PAD character, octal 177, cannot appear 
in a canonical string. (Refer to Section 3 and Appendix A of the MPM 
Reference Guide.) 


An IF test examines the value of an expression and either succeeds or 
fails. The type of data in the result of the expression being tested 
can be numeric, character, or boolean. 


If the expression result type is numeric, the IF test fails when the 
result is zero; otherwise, the IF test succeeds. 


If the expression result type is character, the IF test fails when the 
character string is the five characters FALSE; otherwise the IF test 
succeeds. The FALSE string may be spelled with any mixture of 
uppercase and lowercase letters (e.g., FALSE, false, FaLsE, fALSe, 
etc.) . 


If the expression result type is boolean, the IF test succeeds when 
the boolean value is true and fails when the value is false. 


When referring in text to the keywords that identify an option, and 
there are both a long form and a short form of the keyword, only the 
long form is used in the text. It is understood that the remarks 
apply to the short form also. Thus, 

The CHARACTER option ... 
is used instead of 


The CHARACTER or CHAR option ... 


5-4 CC69 


TOs 


When data is stored in a character string variable, the left-hand end 
of the data string is positioned at the left-hand end of the 
variable's storage area. If the data is too long to fit, the 
right-hand portion of the data is truncated and discarded. If the 
data is shorter than the variable's storage area, and the variable was 
declared with tne VARYING Keyword, the length of the new value is set 
to the actual length of the data. However, if the declaration does 
not include the VARYING keyword, the data is padded on the right with 
spaces. The length remains whatever length was declared for the 
variable. For example, assign the data 12345678 in each case below. 
The overstruck character 6 represents a space. 


Variable Type Declared Length Result Value Result Length 
Non-var ying 6 123456 6 
Non-varying 10 123456786 10 

Varying 6 123456 6 

Varying 10 12345678 8 

All names made up by the user must be unique. That is, the user 


chooses character strings for these types of identifiers: 


parameter name 
input field name 
local variable name 
set variable name 
table variable name 
report name 
detail name 


Think of the identifiers for all of these types of names as being in 
one set. All members of that set must be unique. 
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Group Name: Arith_Expr 


The Arith Expr group and its Arith Ref Subgroup provide arithmetic 
operators and parentheses so that conventional arithmetic expressions may be 
formed. In addition to the details discussed here, Section 7 contains a unified 
treatment of the interactions between the rules stated in the Full Expr group 
and its subsidiary groups. 


General Format: 


+ + 
- J Arith Ref - ] arith Ref 


Nw + 


where Arith Ref is 


number-4 
input_field-name-6 
local variable name-4 
parameter name-1 


%PAGENUMBER ( [ report_name-1 ] ) 
TRANSFORM ( Full _Expr-12, table variable name-1 ) 


( Full _Expr-13 ) 


Examples: 


Is Simple arithmetic expressions. 


5 
+ 5.7 
- 6.3 
name of an input field + name of _a local variable 
shop cost ¥ ( 1 + overhead factor ) 
unit price * ( 1 + 3 * (burden_1 + burden 2)/factor_3) 


2 Provide the current page number in the page heading line of a report. 


define 1 report parts analysis ... 
2 pagehead, 
3 line, 
4 "PARTS ANALYSIS" col 11, 
4 Zmmddyy col 31, 
4 "Page" col 51, 
4 Zpagenumber (parts_analysis) col 56; 


5-6 CC69 


Arith_ Expr 


Syntax Rul 


Arith Expr 
Use of a transform variable. 
declare rank word char(20) varying; 
declare rank code to rank name table 
( 1 => "letter" 2 -> "word" 3 -> "Sentence"); 
rank word := transform ( r_count, rank code to _rank name); 
If r_count = 2, rank word is set to "word" (without the quote 


characters). 
Examples using prefix (unary) arithmetic + and - operators. 
a. - count 3 
b. alpha ++ beta -- gamma *- delta +- epsilon 
is equivalent to: 
alpha + beta - (gamma * delta) - epsilon 


The following numerical examples illustrate the meanings of the infix 
(binary) arithmetic operators. 


Expression Result 
1.2 + 1.2 
+3.4 + 3.4 
-5.6 - 5.6 
7 + 8 + 15 
T +83 -=3 + 12 
(7 + 8 - 3) * -3 =- 36 
-(7 + 8 = 3) * -3 / -10 - 3.6 


es: 


Parentheses may be nested to any depth. 


If only one report is defined with the DEFINE i REPORT keywords from 
the Define Report group, report _number-1 may be omitted from the 
%ZPAGENUMBER option. 


General Rules: 


1. 


The 4PAGENUMBER builtin function returns’ the integer, in a character 
string varying form, of the current page number of the report 
specified by report name-1. If report name-1 is omitted, the current 
page number of the one and only report that was defined is returned. 


When the TRANSFORM option is specified, Full Expr-12 is evaluated. 
The resulting value is searched for in the first members of the pairs 
of values that were declared for the table variable specified by 
table variable name-1. The value of Full Expr-i2 need not have an 
integral value. 
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2% The + and - operators that immediately precede the Arith Ref term in 
the general format diagram are the conventional prefix (or unary) 
arithmetic operators with these meanings: 

Operator Meaning 
+ Plus; use the value of Arith Ref as is. 
- Minus; use the negative of the value of 
Arith Ref; multiply the value of Arith Ref by 
minus one. 
Neither Same as for + 

yy, The set of +—- * / operators in the middle of the general format 

diagram are the conventional infix (or binary) arithmetic operators, 


with these meanings: 


Operator Meaning 


+ Add 

- Subtract 

* Multiply 

/ Divide, with any remainder included in the 
result. 


Char_Expr Char_Expr 


Group Name: Char _Expr 


The Char_Expr group forms a character string from shorter character strings. 
(Section 7 contains a unified treatment of the interactions between the rules 
stated in the Full_ Expr group and its subsidiary groups.) 


General Format: 


@ CONCATENATE > 
| Char_Ref-2 | i 


IF ( Full_Expr-11 ) Char _Ref-3 


n 


1 


Examples: 


Assume that: 


e Today is Wednesday, 1980 December 31 


e The parameter color contains blue as its value 
* The local variable shape contains triangle as its value 
e The input field part number contains PHX23B7 as its value 
a The local variable alpha contains FIRST as its value 

Ae The expression: 


"This is the " |ij%Zdayii " report." 
yields: 
This is the Wednesday report. 
Ls The expression: 
"part." jiecolor;; "." {{shape 


yields: 


which might be useful as a file name for a report. 
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The expression: 
2substr (part number jicolor, 4, 7) 
yields: 
23B7blu 
The expression: 
if (color = "blue") alpha 
yields: 
FIRST 


The expression: 


"elephant _" 14 

if ( shape = "square" ) "cat" j[] 

if ( day = "Saturday" ) "hen" | 

if. “red™-= color.) "duck" “14. HORSE" 


yields: 


elephant_-COW-_HORSE 


' "oCcOWw-" 


Char_Expr 
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Char Expr 


Char Expr 


This example shows several ways of arriving at the name or value of a 
field. Assume that: 


e The current time is 2.3 seconds before the end of 1980 
e The value of the parameter bogie is 43 
e The value of the part cost field in the current input record 
is 410 
The line: 
"Today is " || Smmddyy ii " at " |{ ZShhmmss 
yields: 


Today is 12/31/80 at 23:59:57 


The line: 
"Today is " {} month |; " " |} Ssubstr( mmddyy, 4,2) 
yields: 


Today is December 31 


The line: 
part_cost * 1.1 + bogie 
yields: 
4Q4 /® 410 * 1.1 + 43 results in 494 #/ 


Syntax Rules: 


1. 


The semicircles, CONCATENATE, and j{ construct at the upper right of 
the general format diagram means that options within the double bars 
may be strung together with the string CONCATENATE or j{ between the 
options. 


At least on Char Ref-2 must be supplied. An indefinite number of 
additional Char _Ref-2 items may be supplied. 


Every IF test must have an accompanying Char Ref-3. 
When IF ( Full Expr-11 ) phrases appear, an indefinite number of 


Char Ref-2 and/or Char Ref-3 values may be concatenated together to 
yield the final character string for the Char Expr. 
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General Rules: 


Ty The values of Char Ref-2 and/or Char Ref-3 are treated as character 
strings. 
23 If a Char Ref is an arithmetic value, it is converted into a character 


string and then the concatenation occurs. 


3% If a Char Ref is a boolean value, it is converted into a character 
string and then the concatenation occurs. A boolean true value is 
converted to the 4HY-character string "true" while a false value is 
converted to the 5-character string "false". 


4, When an IF clause appears, the value of Full Expr-11 is tested. The 


character string result for this portion of the Char Expr is the value 
of Char Ref-3 should the test succeed and is null otherwise. 
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Group Name: Char Ref 


The Char Ref group provides several ways to construct character strings and 
provides builtin functions for obtaining information and manipulating character 
strings. In addition to the details discussed here, Section 7 contains a 
unified treatment of the interactions between the rules stated in the Full Expr 
group and its subsidiary groups. 


General Format: 


Arith_Expr-1 

"string-9" 

SMMDDYY 

#Y YDDD 

%MONTH 

BDAY 

@HHMMSS 

ZSUBSTR ( Char_Expr-9, Arith Expr-2 [ » Arith_Expr-3 ] ) 


REPEAT ( Char _Expr-10, Arith_Expr-5 ) 


Examples: 
Assume that: 


e Today is Wednesday, 1980 December 37 


e The time is 2.3 seconds before midnight (i.e., 57.7 seconds of 
the minute has passed) 


e The local variable j_count has 5 as its value 


Ts Arithmetic expressions. 
27 yields 27 


j_count yields 5 
j_count *3 + 6.9 yields 21.9 
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Char Ref 


Quoted strings. The quotes are not part of the value. The length of 
the value is equal to the quantity of characters between (i.e., 
exclusive of) the quote characters. A quote can be included in a 
string by doubling the quote. A 6 denotes a space character. 


Appearance in source program Length Value 


"apple" 5 apple 
"yellowbbanana' 13 yellowbbanana 
"spacebatbendb" 13 Spacebatbendb 
"orange" 9 et 8 "orange" 

AUN oath" hdogtt 1 1 "catb"bdog" 
"cowb!"""Bpoig" 10 cowhb""ppig 

"tt 0 


The last line of the above table is a null string. 


Builtin functions provide date and time information. The example 
assumes that the time in history is New Year's Eve - 1980. 


ammddyy yields 12/31/80 
ayyddd yields 80366 
$month yields December 
Bday yields Wednesday 
%hhmmss yields 232 O95 51 


Portions of a string may be obtained with the substring builtin 
function. 


substr ("abedef", 1, 2) yields ab 
%substr ("abedef", 4) yields def 
Zsubstr (%Zmonth, 1, 3) yields Dec 
%Zsubstr (%Zsubstr (Zhhmmss, 3, 4),2,2) yields 59 
Zsubstr ("1234567890", j_count,j count) yields 56789 


Repeat character string. 


repeat ("ab", 3) yields ababab 
repeat (j count, j count) yields 55555 
Zrepeat (%substr(%yyddd,4,2),3) yields 656565 


Syntax Rules: 


1. 


Arith Expr and Char Expr items may be complex statements. There is no 
specific restriction on the degree of complexity or nesting of 
parentheses. 

Builtin functions may be nested to any depth. 


The maximum length of the resulting string is 256 characters, unless 
the intended use imposes a smaller maximum. 
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General Rules: 


Le If the "string-9" option is chosen, the terminating quote character is 
the first unpaired quote character occurring after the initial quote 
character (see Example 1). 


2. The date and time functions return values that are obtained during the 
execution of MRPG-OS. The system calendar clock is interrogated (once) 
Shortly after MRPG-OS begins execution. Printing the time on more 
than one occasion during the execution of MRPG-OS yields the same 
value. 


as The @MMDDYY built-in function returns the date as an eight character 
string. 


Length Example Description 


2 12 Number of the month in the year. 
1 / A right slant (or slas) character. 
2 31 Number of the day in the month. 
1 / A right slant. 
2 80 Number of the year in the century, 
Starting with 00. 
4, Se ee built-in function returns the date as a five character 
string. 


Length Example Description 


2 80 Number of the year in the century, 
starting with 00. 
3 366 Number of the day in the year, starting 


with 1. 


De The @MONTH built-in function returns the unabbreviated name of the j 
current month as a varying character string with the initial letter in 
uppercase and the remaining letters in lowercase. 


on The ZDAY built-in function returns the unabbreviated name of the day | 


of the week as a varying character string with the initial letter in 
uppercase and the remaining letters in lowercase. 
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Char Ref 


The “@HHMMSS built-in function returns the time of day as an eight 
character string. 


Length Example Description 


2 23 Number of the hour of the day, starting 
with 00 after midnight. 

1 : A colon character. 

2 59 Number of the minute of the hour 

1 : A colon character. 

2 oF Number of the second of the minute.The 


actual time in seconds is truncated to 
yield an integer value. 


The ZSUBSTR built-in function is identical to the PL/I substring built-in 
function. Char _Expr-9 is the character string examined. Arith Expr-2 
specifies the number of the first character of Char _Expr-9 as the 
first character of the result. Arith Expr-3 specifies the quantity of 
characters in Char _Expr-9 that constitutes the substring. If Arith _Expr-3 
value is zero, the result is anull string. If Arith _Expr-2or Arith — _Expr-3 
is not an integer, the value is truncated to an integer. An error 
occurs if Arith_Expr-2 or Arith_Expr-3 is negative, or if the sum of 
the truncated values of Arith _Expr- 2 and Arith_Expr-3 is larger than 
the length of the Char _Expr-9 ‘String. If Arith _Expr- 3 is omitted, the 
substring ends at the end of the Char _Expr-9 string. This is a PL/I 
characteristic. 


The ZREPEAT built-in function returns a character string in which the 
value of Char_Expr-10 is repeated the number of times that is equal to 
the value of Arith_Expr-5. If the vaiue of Arith_Expr-5 is not an 
integer, the value is truncated to an integer. An error condition 
results if the truncated value is negative. If the truncated value is 
zero, the result is a null string. 
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Group Name: Declare Input File 


The Declare Input File group, along with its subsidiary groups, provides 
information concerning the type, location, and structure of the input file. 


General Format: 


DECLARE 
1 INPUT 
DCL 
1 | ea integer-2 | C) 


STREAM 
FILE Char_Expr-2 
0 ATTACH Char _Expr-3 


‘| , 2 input_field_name-0 Input Field Def | 


O 


if} , 2 FILL (Cinteger-3) 


Examples: 


These examples concentrate on the overall file characteristics. See 
"Input Field Def" group for examples of individual fields. 


1. The input file is a segment containing several records. Each record 
ends with a newline character. 
del 1 input stream file “your _input", 


tape Obtain the same file as in Example 1 (using the ATTACH phrase) to 
illustrate the ATTACH phrase. 


del 1 parameter, 


2 file_name char(*); 
del 1 input stream attach "vfile_ ";;file name, 
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Syntax Rules: 


General 


1. 


11/82 


If RECORD or STREAM is not specified, the default is STREAM. 


If the FILE or ATTACH option is not specified, the MRPG-OS cannot run 
as a command. It can however run as an I/O appendage via the report_ 
I/O module. Usually, this is done in conjunction with LINUS. 


If MRPG-OS is run as an I/O appendage, all FILE and ATTACH phrases are 
ignored. 


Rules: 


If STREAM is chosen, each record in the input file is assumed to be 
followed by a newline character. The newline character is not part of 
the record. If integer-2 is omitted, the maximum record length is 
assumed to be 500. 


RECORD indicates that every record is the same length. IF RECORD is 
chosen, but integer-2 is omitted, the length of each input record is 
assumed to be equal to the sum of the lengths of the individual fields. 
Thus, the last character of record N is immediately followed by the 
first character of record N+1. 


If RECORD is chosen and integer-2 is supplied, the length of each 
record is assumed to be equal to the value of integer-2. This allows 
the user to omit the declarations of fields not used and which are 
located at the end of each record. 


With STREAM, the opening mode for the input file is stream_input. 
With RECORD, the opening mode is sequential input. 


Char_Expr-2 must be a character string. it is used by the vfile_ I/0 
module as the relative or absolute pathname of a segment for the file. 
The MRPG language does not impose any constraints on the characters in 
the string. However, the intended use of this string does impose 
constraints. Allowable characters and the length of the string are 
restricted to what is allowed in relative pathnames of segments. (See 
"Section 3" of the MPM Reference Guide.) 


Char_Expr-3 is a character string used as an attach description for an 
I/O module, usually the vfile_ module. The ATTACH keyword must be 
supplied to use an I/0 module other than the vfile_ 1/0 module. (Refer 
to the MPM Subroutines, MPM Subsystem Writers' Guide, or the MPM I/0 
manuals for details of the required attach description.) 


The FILL declaration is used to skip over data characters in the input 
record. The value of integer-3 specifies how many data characters to 
skip. Any field length and/or field delimiter information in the record 
is automatically skipped. 


5-18 CC69-00A 


Declare Parameters Declare Parameters 


Group Name: Declare Parameters 
The Declare Parameters group provides the capability to: 
a Specify that parameters may be supplied 
@ Describe their acceptable forms 
General Format: 


In the general format diagram, the term KEY is a keyword. Following KEY, 
string-1 specifies a key string that is to be supplied when the MRPG-OS is 
invoked. At that time, a key value is supplied immediately after the key string 
in the command line. The key value then becomes the value of the parameter. 


DECLARE PARAMETER 
1 
DCL PARM 
CHARACTER 
) 
CHAR integer-1 


{ KEY "string-1" [ , "string-1" ] sets ne, 
iy H 


DEF AULT Char_Expr-i 


BOOLEAN 
KEY ( “"string-1" [ » “"string-1" ] ete) 


, 2 parameter _name-0 


Examples: 


1. Declare and supply one parameter, without using a KEY phrase. 
del 1 parm, 2 city char(*) 
Typing the command line: 
your_mrpg os Phoenix 


asSigns the value Phoenix to the parameter named city. 
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Declare and supply two parameters that must be supplied in a specific 
sequence. 


del 1 parm, 


2 city char(*), 
2 state char(*); 


Typing: 
your_mrpg os Phoenix Arizona 


assigns the value Phoenix to city and Arizona to state. However, 
typing: 


your_mrpg_ os Texas Austin 
assigns Texas to city and Austin to state. 


Declare and supply two parameters using key phrases (provides input 
sequence independence). 


del 1 parm, 
2 city char(*) key("-city"), 
2 state char(*) key("-state") ; 
Typing either: 
your _mrpg os -city Chicago -state Illinois 
-OR- 
your _mrpg os -state Illinois -city Chicago 
yields the same result. 


Using default values. 


del 1 parm, 
2 input file char(*) key ("-input") default "your input"; 


Typing either: 
your _mrpg os -input your_input 

=OR= 
your_mrpg os 

gives the same result. However, typing: 
your_mrpg os -input my_input 


assigns the value my_input to the input file parameter. 
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Control the length of a parameter's value. 


del 1 parm, 2 color char(4); 


Typing: 
your_mrpg os blue assigns the color value "blue" 
your_mrpg os yellow assigns the color value "yell" 
your_mrpg os red assigns the color value "red " 


Make flexible the sequence in which arguments are typed. 
del 1 parm, 

2 animal char(*) key ("-a", "-animal"), 

2 vegetable char(*), 

2 mineral char(*), 

2 gas char(*) key ("-g"), 

2 liquid boolean key ("-water"); 


All of the following lines give the same result. 


your_mrpg os -a cat carrot granite -g helium -water 
your _mrpg os carrot granite -g helium -water -a cat 
your_mrpg os -g helium carrot -animal cat -water granite 


Since neither the vegetable nor the mineral parameter declarations 
contain a key phrase, the first nonkeyed argument is associated with 
vegetable and the second nonkeyed argument is associated with mineral. 


Syntax Rules: 


Gener 
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al 


The KEY/DEFAULT phrases are a continuation of the CHARACTER clause. 


The string-1 values for 


Vim RDS 


a 
Strings. There must be no duplicates in that set. 


11 of the parameters form a set of quoted 


ve MVC 


Parameter key strings and key values cannot contain semicolons, 
parentheses, or brackets, unless such characters are contained within 
quoted strings. (These characters have special meaning to the command 
processor.) The key strings and key values are encountered by the 
command processor when the MRPG-OS is invoked. 


Rules: 


CHARACTER (*) means the length of the value associated with this parameter 
is the length of the argument sent to the MRPG-OS. 


CHARACTER (integer-1) means the value assigned to the parameter contains 
the quantity of characters specified by the value of integer-1. If 
more than integer-1 characters are supplied as an argument value, only 
the first integer-1 characters are used as the parameter value. If 
less than integer-1 characters are supplied, sufficient spaces are 
appended to the supplied characters to yield a string containing integer-1 
characters. 
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If the KEY phrase is included in the declaration of some CHARACTER 
parameters, then the key strings and their key values may be supplied 
in any sequence. Those CHARACTER parameters whose declarations do not 
include a KEY phrase are assigned values from the set of nonkeyed 
arguments. The first nonkeyed argument is assigned to the first parameter 
in the set of parameter declarations whose declaration does not include 
a key phrase, the next nonkeyed argument to the next nonkeyed parameter, 
etc. 


The first character of string-1 must be a dash (minus sign, hyphen, or 
octal 055). 


Multiple forms of a key string are specified by including multiple 
string-1 items in a key phrase. 


The end result of evaluating Char _Expr-1 must be a quoted string. If 
no value is supplied for a parameter whose declaration includes a 
DEFAULT phrase, the value of Char_Expr-1 is assigned to that parameter. 


A BOOLEAN parameter has the value TRUE if any of the string-1 keys 
specified for that parameter are present in the arguments sent to the 
MRPG-OS. If none of the string-1 keys are present in the argument 
list, then the parameter has the value FALSE. 


When MRPG-OS is invoked with arguments, each argument is examined to 
determine whether or not it begins with a dash. If not (no dash), 
then it is treated as a nonkeyed argument (see "General Rule 3"). 
However, if the first character of the argument is a dash, the argument 
is treated as a key string. The MRPG-OS attempts to locate the key_ string 
in the set of string-1 values specified in the KEY phrases. 


Note: A negative decimal value as an argument is invalid. 
The value of a parameter cannot be changed by MRPG-OS. 


When the MRPG-OS is invoked, all CHARACTER parameters which do not 
have a DEFAULT must be supplied. 
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Group Name: Declare Variable 


The Declare Variable group is used to establish variables (not in the input 
file) for use in calculations, tests, and reports. 


General Format: 
DECIMAL 


DECLARE 
DCL 
DEC 


CHARACTER VARYING 
local _ variable name-0 ( integer-7) 


CHAR VAR 


BOOLEAN 
BOOL 


number-1 [ » number-1 ] 
set_variable name-0 SET ( 
" string-5"[ , "string-5"] Lae 


C number-2 -> number-3 
number-2 -> "String-7" VARYING 
table variable name-0 TABLE ( "string-6" -> number-3 Sse) 
~ = "string-6" -> "string-7" VAR 


Examples; 


ls Variables used in conventional arithmetic calculations are: 


del count dec; 
del grand total dec; 
del average dec; 


average := grand total / count; 
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2. Character string variables are: 


del date _yymmdd char (6); 

[® O3805. TIO929: */ 

del date _year_month day char (17) varying; 
/*® e.g., 1977 September 29 #*/ 


date yymmdd := %substr (%mmddyy,7,2) 
~ 11substr (%mmddyy, 1,2) 
1i@substr (Zmmddyy,4,2); 
date year _ month day := "19"|\%substr (Z4yyddd,1,2) 
= i fim ti tamonthi ir te. 
11 2substr(4mmddyy,4,2) 


3. Boolean variables used in a test could be: 


del test _3 boolean; 


»-- let (test 3 := true;)... 


if (test 3) then 


4, A data set can be established for later use in determining whether or 
not a value is a member of the set. 


del all _the dec digits set (0,1,2,3,4,5,6,7,8,9); 

del state name western set 
("California", "Oregon", "Washington", "Hawaii", 
"Alaska"); 


if deduction code not in all the dec digits 
then error message := "Invalid deduction code."; 
ti 
if state name in state name western 
then sales office := "San Francisco"; 
ae 


5-24 CC69 


Declare Variable Declare Variable 


Values may be encoded or decoded with the aid of a table variable. 


del part no _ to price table 
(1111 => 27.50 2222 -> 49.98 3333 -> 67.23); 


del rank code to_rank name table 
(1 -> "letter" 2 -> "word" 3 -> "sentence" 4 -~> 
"paragraph") ; 


del state code to number table 
(AL" -> 1 "AK" -> 2 "AZ" -> 3. ... "WY" -> 50); 


dcl state name to code table 


("Alabama" -> "AL" ... "Wyoming" -> "WY"); 
unit price := transform (part number, part_no to price); 
state number := transform 


(transform (state name, state name _to_ code), 
state code to_number); 


Syntax Rules: 


bs 


General 


The Declare Variable group is used once for each variable that is 
neither a parameter nor a field in the input file. 


Each occurrence of the Declare Variable group ends with a semicolon. 


When a TABLE variable is defined, one of the four possible options is 
selected. Only that option form may be used for that variable (i.e., 
the option forms may not be mixed in the declaration of a TABLE 
variable). 


Rules: 


Local variables are not automatically initialized. One-time 
initialization is covered in the discusssion of the BEGIN keyword in 
the Execute Phase group. Once-per-control-break initialization can be 
done in the DETAILHEAD portion of the Heading group. 


The DECIMAL option specifies a numeric variable. 

The CHARACTER option specifies a character string variable. 

If CHARACTER is selected but VARYING is omitted, integer-7 specifies 
the quantity of the characters that are always occupied by the 
character string. 

If CHARACTER is selected along with VARYING, integer-7 specifies the 
maximum length of the string. The string's length may be less at 
times. 

A variable declared with BOOLEAN can have either a true or a false 
value. 
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The SET declaration is used to establish a set of numbers or a set of 
eharacter strings for use in later parts of the program. Tests may be 
made later to determine whether or not a data item is in a data set 
that was established with the SET option. A set of numbers may 
contain any mixture of integers and non-integers. All numbers are 
considered to be positive numbers. All ASCII characters are permitted 
in string-5. The values for a SET variable cannot be changed during 
the execution of the MRPG-OS. 


The TABLE declaration provides a means of converting a value to some 
other value via a table lookup. When used, the supplied value is 
searched for in the first parts of each transform pair (i.e., examine 
the number-2 and the’ string-6 values). If the value is found, the 
second part of that pair is made available (i.e., the number-3 or the 
string-7 value). If the VARYING or VAR option is selected, the length 
associated with a string is the actual length of that string. If the 
VARYING or VAR option is omitted, all strings have the same length. 
The length is the length of the longest string supplied in the 
declaration of this table variable. A number may be either an integer 
or a non-integer. All numbers’) are considered to be positive numbers. 
All ASCII characters are permitted in string-6 and string-7. The 
values for a TABLE variable cannot be changed during the execution of 
the MRPG-OS. 
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Group Name: Define Report 


The Define Report group defines the overall structure of a report. This 
group may occur several times to define multiple reports. 


General Format: 


Example: 


See 


DEFINE 1 REPORT report _name-0 


[ Report Control ] 


[ Heading ] 
{ Detail } a 
[ Footing ] 


Section 2 and Appendix B for complete examples that include the 


Define Report group. 


Syntax Rules: 


General 


1. 


Note that only the Detaii group is required. 


A semicolon ends the Define Report group. Other semicolons may exist 
within the group. 


Only the Detail group may occur more than once in the definition of a 
report. 


Whichever groups are used, they must be used in the order shown above. 


Rules: 


The Report Control group is used to supply overall report control 
information when the default values and actions are other than what is 
required. 


The Heading group is used if report, page, and/or detail heading lines 
are required. 


The Detail group is used to supply the specific information about the 
content of each detail line. 
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yy The Footing group is used if detail, page, and/or report footing lines 
are required. 
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Group Name: Detail 


The Detail group associates a name with a detail line and specifies tests 
to determine whether or not the line is to be produced and whether or not it is 
produced for the current page or the next page. 


General Format: 


Wy IF (Full_Expr-4) C) 


, 2 DETAIL detail name-0 MAXLINE Line-4 a 
integer-13 
0 MAXL 
Examples: 
Ve Unconditionally print the line. 


define 1 report name _ address list 
on file "your_output", 
2 detail name ... 


print name; 
2. Print the line only if some condition is satisfied. 


2 detail name if (dept _code > 123) ... 


Syntax Rules: 


1. More than one line can be defined as part of a DETAIL group. If this 
is done, the detail name-0O refers to all of those lines. It is not 
necessary however, to define any lines. 


2. Examination of the Define Report group shows that the Detail group may 


be used several times in the definiton of a report (each with a different 
detail name). 
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Detail 


General Rules: 


11/82 


1. 


The DETAIL group specifies a set of detail lines. When an IF test is 
specified, Full Expr-4 is evaluated and the result is tested. Assuming 
that the IF test succeeds, the set of lines becomes a candidate for 
being produced. In the event that the IF test fails, the set of lines 
is omitted. When no IF test is specified, the set of lines is a 
candidate for being produced. If the set of lines becomes a candidate 
for being produced, then a similar IF test within each line definition 
may be specified to determine whether or not each line is to be produced. 
(See "Lines" group for details.) 


This paragraph and the next three general rules occur with almost 
identical wording in the Heading and Footing groups. Small changes 
are made because the group name changes. 


A MAXLINE value, known as report_maxline, is established for the report 
aS a whole in the Report Control group. If, in this Detail group, the 
MAXLINE integer-13 phrase is supplied, the value of integer-13 must be 
less than or equal to the value of report_maxline. 


The line number of the highest-numbered line on which the first line 
of the DETAIL set of lines may be printed is the minimum of report_maxline 
and integer-13, if the MAXLINE integer-13 phrase is supplied. If the 
MAXLINE integer-13 phrase is omitted, then report_maxline specifies 
the line number of the highest-numbered line on which the first line 
of this set is produced. 


If more than one line is defined for the DETAIL set of lines, then the 
value of integer-13 must not be larger than report_maxline minus the 
maximum quantity of lines that might be produced for the DETAIL set 
being specified. As an example, suppose that the value of report_maxline 
is 45. Assume that the DETAIL set of lines has six lines specified, 
but an IF test is specified for each line. Further assume that the 
user knows that the IF tests and the data in the input file are such 
that no more than four of the six lines are ever produced on the same 
page. Then, a value of 41 can be supplied for integer-13. 
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Group Name: Execute Phase 


The Execute Phase group is the executable portion of the program. This is 
the only group that executes sorting and printing. 


General Format: 
Format 1: (Valid only for the first phase.) 
BEGIN ( [ local variable name-2 := Full Expr-9 ; ] as oD 


nl] INPUT C) 


[ Loop Statement ] are HOLD input_field_ name-4 ; 


0 local_ variable name-3 


Format 2: (Valid for all phases after the first phase.) 


BEGIN (¢ [ 10cal_variable_name-2 >= Full _Expr-9 ; ] Kca>2 


input field name-5 ASCENDING 
= -_ ASC fPUEE PERU il 
DESCENDING NO : 
J il a JJ 


local_variable_name-4 DESC [DUPL 


n 


SORT 


€ Loop Statement $ sare [ HOLD + ] 


where Loop Statement is: 


input_field name-4 
:= Full _Expr-8 ; 


local variable name-2 


report _name-1 
PRINT 


° 
? 


detail name-1 J 
IF Full _Expr-10 THEN € Loop_Statement } ated 


[ ELSE { Loop Statement } soe ] Bi. 
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Examples: 


1. 


11/82 


Specify an assignment that is executed once, at the beginning of a 
phase. 


begin (accumulated _dollars := 0;) 
Call for the printing of a line for each input record. 


begin -C suas 2) 
print a_detail_name_from_the Detail group; 


Specify an assignment that is executed once per input record before 
any output line processing is done for the input record. 


begin ( ... ) 
accumulated dollars := accumulated dollars + unit dollars; 
print the detail line; 


Execute one of two sets of assignment statements with the selection 
dependent on the relationship between the value in an input field and 
a parameter. 


dcl 1 parameter, 2 desired_color char(*); 
del. 1 anput sa. 
2 unit_color char(6), ... 


begin (... ) 
if unit color = desired color 
then color_match := color_match + 1; 
print color_iline; 
else mismatch := mismatch + 1; 
print mismatch line; 
ee 


During the first pass through the input file, save the original input 
data and the current values of two local variables for each input 
record for use in a later phase. 


begin ( ... ) 
hold input, color_match, color_mismatch; 


Sort held file. 


begin ( ... ) 


hold input, unit_cost; 
begin ( ... 
sort unit cost descending; 
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Ts As part of the third pass through the input information, save the 
current values of the input fields and the same local variables whose 
values were saved during the first phase. 


begin ( ... ) 
hold input, color _match, color mismatch; 


begin { ..< ) 


DEIN. Css, 2 


holds 
8. Illustrate the sequence in which statements are executed. 


del count decimal; 
define 1 report ... 
2 detail parts analysis, 


4 part_number char(6) col 1 
let (count := count + 13), 
begin (count := 0;) 
/* count = 0 * 
count := count + 1; 
f*® .counG €.4 
print parts analysi 
/® count = 2, 
count t= count. 4s 
f= Count= 3. 62 95 sea 47 
end; 


9. See the "hold and sort" example in Appendix B for an example that 


emphasizes the HOLD and SORT statements and their interaction with the 
PRINT statement. 
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10. Sorting example. Assume that the set of held records is as shown 
below, one record per line, and the column headings are the names of 
the input fields and/or local variables. 


kind stock orders price 
apple 1 3 8 
banana 2 5 10 
cherry 1 3 9 
fig 1 6 10 
grape 2 5 t 
lemon 1 6 6 
melon 2 4 8 
orange 2 4 8 


When sorted with the statement: 

sort stock asc, orders desc, price asc; 
the ordering of the records becomes: 

kind stock orders price 


lemon 
fig 
apple 
cherry 
grape 
banana 
orange 
melon 


Mrownmaa-so 
FENUWW aan 


Note that the melon and orange records are in a different order than 
they were in the input (see General Rule 12). 


Syntax Rules: 


Ts The Format 1 subgroup must be used once and only once. It must appear 
immediately after the last Define Report group. 


2. The Format 2 subgroup may be omitted or may appear as many times as 
desired. The first occurrence of the Format 2 subgroup must be 
immediately after the only appearance of the Format 1 subgroup. 


3 The last character of each occurrence of either of these subgroups is 


a semicolon. There may be several additional semicolons between the 
BEGIN keyword and the final semicolon. 
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y, In Format 1, the notation states that INPUT, input_field_name-4, and 
local variable name-3 can each occur an indefinite number of times. 
For example, the notation allows: 


hold input, input, unit cost, input, unit_cost; 


to be supplied. MRPG accepts this statement. That is, the INPUT 
keyword and/or the name of an input field, or the name of a local 
variable can appear more than once. However, the redundant occurrences 
are ignored. Only one value is held in a record for each field or 
variable specified in the HOLD statement. The field and variable names 
and the INPUT keyword can occur in any order. The overall effect is 
independent of the order of occurrences. 


5s If the BEGIN keyword occurs more than once in the program, more than 
one phase exists and a HOLD statement must be supplied in the first 
phase. 


6. The PRINT!report_ name-1 option can be used only if the report being 
called for defines exactly one DETAIL line. 


fe The null form of a Loop Statement is the semicolon character. Thus, 
the correct form of an IF statement that does notning, should the test 
succeed, requires a semicolon between the THEN and ELSE keywords. For 
example: 


if a = b then; else c := d; fi; 


General Rules: 


Ve The BEGIN keyword constitutes the beginning of a phase. The first 
phase processes the original input records. All succeeding phases 
process the held records. 


2% Assignment statements that exist within parentheses shown on the BEGIN 
line of each format diagram are executed once and only once. Execution 
is at the beginning of the phase (i.e., before the first record becomes 
available). 


3% The expression specified for Full_Expr-9 is evaluated and the result 
is stored in the variable specified by local variable name-2. 


4, Loop Statements appearing after the closing parenthesis of the BEGIN 
clause and before the next BEGIN keyword (or the END keyword if this 
is the last phase) are executed once per record. The statements are 
executed in the order in which they occur in the source program. This 
set of statements constitutes the loop of statements that is executed 
once for each input record. A SORT statement is executed only once, 
near the beginning of a phase and before any statements in the 
Loop Statement subgroup. 


or A HOLD statement is executed once per record (i.e., a HOLD statement 


is part of the loop). All held records have the same structure. The 
INPUT keyword in the HOLD statement keeps all input fields. 


11/82 5-35 CC69-00A 


Execute Phase Execute Phase 


10. 


rs 


14. 
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The HOLD statement in the first phase can cause none, any, or all of 
the input fields to be saved for later usage. If that HOLD statement 
includes any local variable name-3 entries, the current values of those 
local variables are saved as part of the held record. Thus, it is 
possible to save a different value of a local variable in each of the 
held records. See the "begin hold assign" example in Appendix B. 


In the first phase, both of the following hold all of the input fields 
and nothing else: 


hold input; 
hold; 


Another way to hold all of the input and nothing else is to list the 
name of every input field following the HOLD keyword. 


The sequence in which HOLD items are listed is not significant. The 
sequence in which the values are arranged in the held records is not 
Significant because that sequence is not visible to the MRPG-OS. 


The Loop Statement subgroup can change the value associated with an 
input field, by having input field name-4 appear on the left side of 
an assignment statement. An assignment statement in the LET clause of 
the Report Field Def group can also change an input value. Should 
this happen, a subsequent HOLD statement that is executed in the same 
phase holds the new value. See the "begin_hold_assign" example in 
Appendix B. 


The sequence in which actions occur is the sequence in which the statements 
triggering those actions occur within a phase. An assignment statement 
in a LET clause of the Report Field Def group is executed as part of a 
PRINT statement (see Example 9). 


A SORT can be performed in the second and subsequent phases, but not 
on the original input records. However, the effect of sorting the 
original input records can be achieved by not modifying the values in 
any of the input fields before executing the HOLD statement in the 
first phase and saving the input fields in that HOLD statement. 


The SORT keyword triggers the execution of a sort algorithm that is 


not guaranteed to preserve the input order of those records with identical 


values in the sort key fields (see Example 10). 


If none of the ASCENDING or DESCENDING sorting direction keywords are 
supplied for a sort key name, the default is ASCENDING. Thus these 
are equivalent: 


sort stock asc, orders desc, price asc; 
sort stock, orders desc, price; 


If a field or variable name is supplied more than once in the same 
SORT statement, the sorting direction used is the sorting direction 
associated with the last occurrence of the name. 


Use of the NO DUPLICATE keyword results in discarding all but one of 


the records that have identical values in the sort key fields. In 
general, which one of the duplicate records is retained is unpredictable. 
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17. 


20. 


21. 


22. 


If a HOLD statement is used in the second and/or subsequent phases, 
the input fields and local variables saved are the same input fields 
and local variables that were saved by the HOLD in the first phase. 
The values in those fields' variables may all have been changed by 
assignment statements in the current and/or any intervening phases. 
See the "begin hold assign" example in Appendix B. 


If the first phase includes a HOLD statement, it is valid for the next 
several phases to leave out the HOLD statement and for a later phase 
to include a HOLD statement. In this case, the same input is 
available to all those phases that lack a HOLD statement and to the 
first succeeding phase that includes a HOLD statement. 


After the expression specified for Full Expr-8 is evaluated, and if 
the identifier on the lefthand side of the assignment statement is a 
local variable name, then the Full Expr-8 result is stored in that 
variable. If the identifier is an input field name, the Full Expr-8 
result is stored in the specified field in a temporary copy of the 
input file (i.e., nothing is stored by the MRPG-OS into the actual 
input file). 


If exactly one DETAIL line was defined for a report and exactly one 
Detail group was defined for that same report, then the name that 
follows the PRINT keyword may be either the report name or the detail 
name. This is the only situation in which the PRINT report _name-1 
option is valid. 


A PRINT statement produces one set of detail lines. Usually there is 
only one line in the set. However, dependent upon conditional tests, 
the arguments supplied to the MRPG-OS, and the input data, the set of 
detail lines could yield no output, one line, or several printed 
lines. 


If the current output line position is near the bottom of a page, the 
production of a set of detail lines can cause the production of page 
footing lines and page heading lines before the detail lines are 
written. 


If the input record that triggered the new set of detail lines also 


caused a control break, detail footing and detail heading lines may be 
produced before the detail iines are written. 
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25. 


Test Statements ELSE Statements 
Result Follow THEN -Present Follow ELSE 
aes ee een) Tes (ia eer 


peep ff 


ee fo pep 


In the event that an IF statement appears, the value of Full Expr-10 
is tested and control is transferred within the IF statement as shown 
below. Control always reaches the "FI;" that denotes the end of the 


IF statement. 
Resulting Action 


Execute statements 
following THEN. Then 
advance to the FI; 


Execute statements 
following ELSE. Then 
advance to the FI; 


Nothing is actually done at the FI; point. In the above table, the 
remark "Advance to the FI;" means that the IF statement's execution is 
complete and control passes beyond the IF statement. 


IF statements may be nested to a large, indeterminate depth. The 
limit is dependent on many characteristics of the program and cannot 
be described in detail for the general case. 


A phase ends when the last statement in the loop is executed for the 
last input or held record. Any specified detail footing lines are 
produced. Control breaks occur at all defined levels and control 
break processing occurs. If specified, page footing and report 
footing lines are produced. 


5-38 ccé9 


Footing Footing 


Group Name: Footing 


The Footing group, and its subsidiary groups, specify the layout and 
content of detail footing lines, page footing lines, and report footing lines. 


General Format: 


, 2 DETAILFOOT break field ident-1 


if IF ( Full _Expr-4 ) 


MAXLINE { Line-5 5 tee 
integer-13 


MAXL J 


, 2 PAGEFOOT { Line-6 }... | ) 


, 2 REPORTFOOT { Line-7 5 Ss 


1 
0 


Examples: 


te Print two lines at the bottom of every page. On the last page, print 
some text that applies to the report as a whole. 


define 1 report payroll deduction analysis 
on file "your output", 


2 pagefoot, 
3 line 49, 4 "Fiscal 1977", 
3 line +1, 4 "Company Confidential", 
2 reportfoot 


y 
3 line 10, 4 "References:", 
3 line +2, 4 "1. Some text", 
3 line +1, 4 "continued", 
3 line +2, 4 "2. More text", 
3 line +1, 4 "and still more."; 


2. At execution time, select the detail footing line to print based on 
the department code number in the old record when the department code 
number changes between successive input records (i.e., a control break 
occurs). 


2 detailfoot dept code if (dept_code = "123"), 
3 line, 4 "Totals for Welding Department", 

2 detailfoot dept code if (dept code = "124"), 
3 line, 4 "Totals for Grinding Department", 

2 detailfoot dept code if (dept code = "125"), 
3 line, 4 "Totals for Drilling Department", 
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Syntax Rules: 


Either the PAGEFOOT or REPORTFOOT clause may be used first (i.e., if 
both are used). 


The break field ident names must be declared as input field names in 
the Declare Input File group and be identified as control break fields 
in the BREAK phrase of the Report Controi group. 


General Rules: 


If the PAGEFOOT clause is used, the lines that it defines are produced 
at the bottom of every page. 


If the REPORTFOOT clause is used, the lines that it defines are 
produced once, at the end of the report. 


If both a REPORTFOOT clause and a PAGEFOOT clause are in a report's 
definition, the sequence of information on the last page is as 
follows. This sequence is independent of the order of the REPORTFOOT 
and PAGEFOOT clauses. 


Some detail lines 


a The set of DETAIL lines for the last record 

If specified, the DETAILFOOT lines for the last record 
e The REPORTFOOT lines 

& The PAGEFOOT lines 


e A newpage character 


A DETAILFOOT clause defines a set of detail footing lines that may 
precede a set of detail lines when a control break occurs. If a 
DETAILFOOT clause is defined, and a control break occurs for the field 
specified in that DETAILFOOT clause, then the set of lines that are 
subservient to this DETAILFOOT clause is a candidate for being 
produced. There may be only one line in the set. When an IF test is 
specified, Full Expr-4 is evaluated and the result is tested. 
Assuming that the IF test succeeds, the set of lines becomes a 
candidate for being produced. In the event that the IF test fails, 
the set of lines is omitted. Should no IF test be specified, the set 
of lines is a candidate for being produced. If the set of lines 
becomes a candidate for being produced, then a similar IF test within 
each line's definition may be specified to determine whether or not 
each line is to be produced. (See "Lines" group for details.) 


This paragraph and the next three general rules occur with almost 


identical wording in the Heading and Detail groups. Small changes are 
made because the group name changes. 
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A MAXLINE value, known as report maxline, is established for the 
report as a whole in the Report Control group. If, in this Footing 
group, the MAXLINE integer-13 phrase is supplied, the value of 
integer-13 must be less than or equal to the value of report maxline. 


The line number of the highest-numbered line on which the first line 
of the DETAILFOOT set of lines may be printed is the minimum of 
report maxline and integer-13, if the MAXLINE integer-13 phrase is 
supplied. If the  MAXLINE integer-13 phrase is omitted, then 
report maxline specifies the line number of the highest-numbered line 
on which the first line of this set is produced. 


If more than one line is defined for the DETAILFOOT set of lines, then 
the value of integer-13 must not be larger than report_maxline minus 
the maximum quantity of lines that might be produced for the 
DETAILFOOT set being specified. As an example, suppose that the value 
of report maxline is 45. Assume that the DETAILFOOT set of lines has 
six lines specified, but an IF test is specified for each line. 
Further assume that the user knows that the IF tests and the data in 
the input file are such that no more than four of the six lines are 
ever produced on the same page. Then, a value of 41 can be supplied 
for integer-13. 
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Group Name: Full Expr 


The Full Expr group and its subsidiary groups provide a comprehensive 
arithmetic, character, and boolean expression capability. In addition to the 
details discussed here, Section 7 contains a unified treatment of the 
interactions between the rules stated in the Full Expr group and its subsidiary 
groups. 


General Format: 


n OR 


; Boolean Fact 
Boolean Fact 


AND 
Boolean Fact 
0 & 


where Boolean Fact is 


Char_Expr-5 
TRUE 


NOT 
FALSE 


( integer-19 ) 
SLEVEL 
( break field _ident-1 ) 


NOT 
Char_Expr-6 IN set variable name-1 
Relationship Test 


Examples: 


Ts An example using the boolean operators OR, AND, NOT, and_ some 
relationship operators is: 


Salary > 1000 or pay level > 9 
name = Jones and “married 
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Full Expr 


Example relevant to control breaks. 


declare 1 input ... 
2 part_class char(10), 
2 vendor _name ehar(20), 


define 1 report ... 
break (part_class, vendor name) 


2 detailfoot part class ... 
2 detailfoot vendor _name ... 


if Zlevel(2) then vendor count := vendor count + 1; 
if Zlevel(part_class) then print part_class description; 


Does the Pacific Ocean touch this state? 


declare P 0 states set ("California", "Oregon", 
"Washington", "Alaska", "Hawaii"); 


if state in P_0 states then salesman := "JA (Salty) Waters, Sr."; 


In this example, "BF" stands for a Boolean Fact (i.e., an expression 
se) 


ee ~~ = = eke Cea ae 4 te mae & we ee ~s- baad ~ 5 ae oe ee ae 2a = aes 
who se Vai ve is eitner true ofr ° The TOLLOwing Sévs are 
equivalent: 


a. BF_1 or BF 2 and BF 3 
BF_1 or (BF 2 and BF 3) 


b. BF_ 1 and not BF 2 and not BF 3 
BF_1 and ((not BF 2) and (not BF 3)) 
BF_1 and not (BF 2 or BF 3) 


Cy BF_ 1 or BF 2 and BF 3 or BF 4 and BF 5 
(BF_1 or (BF 2 and BF 3)) or (BF_4 and BF_5) 


These examples illustrate the meanings of the boolean connectives. 
Assume that the following variables have the indicated values. 


Variable Value Data Type 

we make it false boolean 

color green character 

size 3 decimal 

Expression Result 
we make it and size = 3 false 
color = "green" or size = 4 true 
color = "red" or not (size = 4) true 
“true false 
“we_make it true 
not we make it true 
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Syntax Rules: 


2 An indefinite number of terms may be strung together to form a "full 
expression", 


23 The Full Expr group and its subsidiary groups include a degree of 
recursiveness. Full Expr references Char Expr which references 
Arith Expr which references Full Expr, with the Full Expr reference in 
Arith_Expr being enclosed in parentheses. 7 


Se Char_Expr-5 and Char Expr-6 may reference any type of parameters, 
input fields, built-in functions, and/or local variables. 


4, The ZLEVEL keyword may only appear inside the definition of a report, 
within the Heading, Detail, Footing, Line, and Report Field Def 
groups. 


General Rules: 


‘les Boolean facts may be strung together with OR, AND, and NOT 
connectives. OR, AND, and NOT have their normal, logical meanings of 
union, intersection, and negation. 


Ze The order of expression evaluation is determined by the precedence of 
operators and by parenthesization. See Section 7 for a discussion of 
this topic for all operators. 


3. The keywords TRUE and FALSE may use any mixture of uppercase and 
lowercase letters. For example, TRUE = true = TruE = True = tRUE. 


4, #LEVEL is valid only when control breaks have been specified in the 
Report Control group. 


os In ZLEVEL (integer 19), the value of integer 19 is the number of the 
control break level of interest. The first field listed in the BREAK 
option of the Report Control group is for level 1 breaks. The second 
field is for level 2 breaks, and so forth. 


6. Assume that the current input record is record number 27, that record 
27 did not cause a control break for level 3 or 2 or 1, that record 28 
will cause a level 3 control break, but record 29 will not. 
ZLEVEL (3) is true from the time that record 28 is available until the 
time that record 29 is available. 


In addition, @ZLEVEL (0) is true during the end-of-phase processing. 
Thus $LEVEL (0) is false until processing is completed for the last 
record. 


T. The name of the break field may be used instead of the level number. 
For example, if a report definition contains: 


break (part_class, vendor_name) 
then the following are equivalent: 


e 


$level (2) 
Zlevel (vendor name) 
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8. The result of the IN clause is the value true or false. 


9. The result of the Relationship Test is the value true or false. 
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Group Name: Heading 


The Heading group, and its subsidiary groups, specify the layout and content 
of report heading lines, page heading lines, and detail heading lines. 


General Format: 


| , 2 REPORTHEAD { Line-1 }... \° 


, 2 PAGEHEAD { Line-2}... 


2 DETAILHEAD break field _ident-1 


1} IF ( Full_Expr-4 ) © sae 
MAXLINE { Line-3 } eek 
integer-13 


MAXL 


Examples: 


ae Print text on the cover page (e.g., a report heading). Then print two 
lines at the top of all following pages. 


define 1 report payroll deduction analysis 
on file "your_output", 

2 reporthead, 
3 line 10, 4 "PAYROLL DEDUCTION ANALYSIS", 
3 line +2, 4 "1977 December 31", 
3 line +2, 4 "A summary of the ---", 
3 line +1, 4 "ete. ete. etc.", 

2 pagehead, 
3 line 1, 4 "PAYROLL DEDUCTIONS", 
3 line +1, 4 "Fiscal 1977", 


2. Do not have a cover page. Put the report heading information on the 
Same page as the first page of the body of the report. 


2 pagehead, ... 
2 reporthead, ... 
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At execution time, select tne detail heading line to print based on 
the department code number in the new record when the department code 
number changes between successive input records (i.e. a control break 
occurs). 


2 detailhead dept code if (dept code = "123"), 
3 line, 4 "Welding Department", 

2 detailhead dept code if (dept code = "124"), 
3 line, 4 "Grinding Department", 

2 detailhead dept code if (dept code = "125"), 
3 line, 4 "Drilling Department", 


Syntax Rules: 


Either the REPORTHEAD or the PAGEHEAD clause may be used first (i.e., 
if both are used). 


The break field ident names must be declared as input field names in 
the Declare Input File group and be identified as control break fields 
in the BREAK phrase of the Report Control group. 


General Rules: 


If the REPORTHEAD clause is used, the lines that it defines are 
produced once, at the beginning of the report. 


If the PAGEHEAD clause is used, the lines that it defines are produced 
at the top of every page. 


Assume that the REPORTHEAD clause and the PAGEHEAD clause are used in 
that order. The sequence of information starting at the beginning of 
the report is: 

r The REPORTHEAD lines 

e A newpage character 

e The PAGEHEAD lines (Page number is 1.) 

e If specified, the DETAILHEAD lines for the first record 

s The DETAIL iines for the first record 


& More DETAIL lines 
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Assume that the PAGEHEAD clause precedes the REPORTHEAD clause in the 
source program. The sequence of information on the first page is: 


e The PAGEHEAD lines 

& The REPORTHEAD lines 

e If specified, the DETAILHEAD lines for the first record 
e The DETAIL lines for the first record 


® More DETAIL lines 


A DETAILHEAD clause defines a set of detail heading lines that may 
precede a set of detail lines when a control break occurs. If a 
DETAILHEAD clause is defined, and a control break occurs for the field 
specified in that DETAILHEAD clause, then the set of lines that are 
subservient to this DETAILHEAD clause is a candidate for being 
produced. There may be only one line in the set. When an IF test is 
specified, Full Expr-4 is evaluated = and the result is tested. 
Assuming that the IF test succeeds, the set of lines becomes a 
candidate for being produced. In the event that the IF test fails, 
the set of lines are omitted. Provided that no IF test is specified, 
the set of lines is a candidate for being produced. If the set of 
lines becomes a candidate for being produced, then a similar IF test 
within each line's definition may be specified to determine whether or 
not each line is to be produced. (See "Lines" group for details.) 


This paragraph and the next three general rules occur with almost 
identical wording in the Detail and Footing groups. Small changes are 
made because the group name changes. 


A MAXLINE value, known as report _maxline, is established for the 
report as a whole in the Report Control group. If, in this Heading 
group, the MAXLINE integer-13 phrase is Supplied, the value of 
integer-13 must be less than or equai to the value of report maxiine. 


The line number of the highest-numbered line on which the first line 
of the DETAILHEAD set of lines may be printed is the minimum of 
report maxline and integer-13, if the MAXLINE integer-13 phrase is 
Supplied. If the MAXLINE integer-13 phrase is omitted, then 
report maxline specifies the line number of the highest-numbered line 
on which the first line of this set is produced. 


If more than one line is defined for the DETAILHEAD set of lines, then 
the value of integer-13 must not be larger than report _maxline minus 
the maximum quantity of lines that might be produced for’ the 
DETAILEBEAD set being specified. As an example, suppose that the value 
of report maxline is 45. Assume that the DETAILHEAD set of lines has 
six lines specified, but an IF test is specified for each line. 
Further assume that the user knows that the IF tests and the data in 
the input file are such that no more than four of the six lines are 
ever produced on the same page. Then, a value no larger than 41 can 
be supplied for integer-13. 
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Group Name: Input Field Def 


The Input Field Def group provides 
in the input record. 


General Format: 


(integer-4) 
CHARACTER 


Lee d 


CHAR 
{ (integer-5) 
(integer-4) 
DECIMAL 
SPECIAL 
DEC 


DELIMITED "st 
[ OPTIONAL ] [ POSITION integ 
Examples: 


These examples include a small 
order to make each field definition 


pa 


complete. 


Input Field Def 


the detailed specification of one field 


SPECIAL 


7 


DELIMITED "string-2" 


ring-2" 


er-6 ] 


rt of the Declare Input File group in 
The initial "2", the field name, 


and the trailing comma or semicolon are all shown in the Declare Input File 
group. 

Ta Define a record with no gaps between the fields. In this sample 
record, 11111 represents the pay number and 2222222 represents the 
annual salary. 

Sample record: 111112222222Warren G. Wonka 
Definition: 

2 pay number dec(5), 

2 annual salary dec(7), 

2 full_name ehar(15); 

es The same record as in Example 1, but described using the POSITION 
phrase. 

2 full name ehar(15) position 13, 
2 annual _ salary dec(7) position 6, 
2 pay_number dec(5) position 1; 
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There is no need to supply the field definitions in the reverse order 
shown, but it could be done this way. 


3. Most people in the United States have three names (first, middle, 
last). Some people have more than three parts to their full name. 
Call these parts first, second, third, fourth, and last, to provide 
for up to five parts. To accommodate most people, let the third and 
fourth parts be optional. That is, the input records may or may not 
contain fields for the third and fourth names. 


Assume that the structure of the input records is as follows. 


Is The 

Field Length 

Fixed or Minimum Max imum 

Field No. Field Name Variable? Field Length Field Length 

1 pay number Fixed 4 4 
2 annual salary Fixed 5 5 
3 last_name Variable 1 20 
4 first _name Variable 1 19 
5 second_name Variable 1 18 
6 third name Variable 0 4 
7 fourth name Variable 0 16 


Fields 6 and 7 may or may not be present. If a person has no middle 
name or initial, field 5 contains the single character "9", 


The last field (5, 6, or 7) is followed by a newline character, 
denoted by <NL> below. Fields 3 through the last field are separated 
by commas. 


Several examples of input records are shown. In these examples, the 
pay number is represented by four odd-value digits (e.g., 1111, 3333). 
The annual salary is represented by five even-valued digits (e.g., 
22222, 44444), 


111122222Edgerton, Jonathan,Micheal<NL> 
33334444uEngels,Albert,Bertram,Charles,David<NLa 
555566666Green ,Mar ybelle,9<NL> 
777788888Br own , Horace, Smedley, Eustice<NL> 


A valid declaration for this file is: 


del 1 input stream file "your input", 
2 pay_number dec(4), 
2 annual_salary dec(5), 
2 last_name char(20) delimited "," 
2 first_name echar(19) delimited ",", 
2 second name echar(18) delimited ",", 
2 third _name ehar(17) delimited "," optional, 
2 fourth_name char(16) optional; 
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Syntax Rules: 


ee The Input Field Def group is used once for each field that is declared 
in the Declare Input File group except for those portions of the input 


record that are declared with the FILL option in the 
Declare Input File group. 


2. All fields that include the OPTIONAL keyword in their declaration must 
reside adjacent to each other in the input record and must be at the 
end of the record. 


General Rules: 


he The CHARACTER keyword causes the input field to be treated as a 
character string. 


a. If the CHARACTER (integer-4) combination is selected, exactly 
integer-4 characters are taken from the input. The internal 
version of the input field has a length of integer-4 characters. 


Ds If the CHARACTER (integer-5) combination is selected, the 
quantity of characters taken from the input is determined by 
‘either the SPECIAL or the DELIMITED mechanism, as discussed in 
later rules. The internal version of the input field has a 
maximum length of integer-5 characters, but it is valid for the 
quantity of characters taken from the input field to be greater 


than integer-5. If this oceurs, only the first integer-5 
characters are available to the program. However, the current 
position in the input data advances further, to the point 


specified by the SPECIAL or the DELIMITED mechanism. 


2. The DECIMAL keyword causes the input field to be treated as a decimal 
value. 


a. The internal representation is float decimal(20). This float 
decimal(20) representation continues to be used even if the input 
field becomes a held field by means of the HOLD keyword in the 
Execute Phase group. 


Ds If the DECIMAL (integer-4) combination is selected, exactly 
integer-4 characters are taken from the input. A newline 
character does not terminate an input field. 


Cs If the DECIMAL SPECIAL combination or the DECIMAL DELIMITED 
"string-2" combination is selected, the quantity of characters 
taken from the input is determined by the SPECIAL or the 
DELIMITED mechanism, as discussed in other rules. 


fo The characters taken from the input (however selected) undergo a 
normal character to decimal conversion, as described in Section 
6. Leading and/or trailing space characters are ignored when the 
string of input characters are converted to their internal 
decimal value. This is a PL/I characteristic. 
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Le SPECIAL means that the actual, current length of the field is in the 
input file along with the current value of the field. If the input 
file is obtained from LINUS with a report request, then the SPECIAL 
keyword must be part of the definition of every field. 


The length and value of a SPECIAL field are arranged in the following 


manner in the input records, where each small box represents one 
character: 


preceding field fslufuyvfulv|eyutel ... folyyvlul next field 


Length 
info The actual data 
where: 
NNN is the quantity of characters contained in the field's value. 
VV...VV is the field's value. 


The length data always occupies four characters, the first of which is 
always a plus character. The data format is fixed decimal(3). 


For example: 
-.. preceding field+016A SAMPLE STRING.next field... 


»-. preceding field+001Xnext field... 
- preceding field+000next field... 


If SPECIAL is used for two fields in succession, and there is an 
inconsistency between the length value for the first field and the 
actual length of that field, it is highly probable that an Illegal 
Procedure condition will occur when the MRPG-OS attempts to use the 
second field's length value. Consider the example: 


+ 
e 


some data+006EAGLE+005SCOUTmore data 


The +006 value should be +005 to match the length of the EAGLE string. 
With the +006, the characters EAGLE+ are used for the first field. 
The next four characters, "0058S", are used as the length value for the 
next field. But when the 005S is interpreted as a fixed decimal(3) 
value by the hardware, an Illegal Procedure condition is detected and 
signalled. This happens because the hardware requires that the first 
character of a fixed decimal value must be either a+ ora = 
character. Since the hardware found a zero, which is illegal, the 
Illegal Procedure condition is detected. Whether or not the three 
characters that specify the length of the data are valid or invalid 
depends on the four low-order bits of each of the three characters in 
the length field. If the value of the four low-order bits is greater 
than nine, a hardware-detected fault occurs. 


Although the hardware allows the sign character to be either a+ oor - 
for the length field, only the + character is acceptable to MRPG. 
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When DELIMITED is chosen, string-2 specifies the single character that 
immediately follows the field being defined. If the input file is a 
stream file, then the string-2 character can be a newline character to 
Signify the end of the last field in a record. 


The value of integer-6 in a POSITION phrase specifies the character 
position of the first character of the field being defined. 
Conventional numbering is used (i.e., the first character of the 
record is in character. position 1). 
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Group Name: Line 


The Line group enables the user to specify where the line is to be placed 
on the printed page, whether or not the line is to be produced, and whether or 
not the MRPG-OS should pause to allow a terminal operator to place a new, blank 
form in the terminal. 


General Format: 


integer-14 


+ integer-15 


PAUSE 
[ IF ( Full Expr-6 ) ] 
0 


| [ iF (| Full_Expr-5 ) | [ Report_Field Def | So. 
| 3 LINE 


Examples: 
ts Specify a line that is to appear on line 6 of a page if a condition is 
satisfied. 
3 line 6 if (dept _code = 123) ... 
2. Specify a line that is to appear on the next line. 


3 line +1, 4... 


<OR= 
5 tine, “4 cs 
3% Close out the current page and position to the end of the current 
page. 
3 line 0, 
4, Specify a line that enables the user to remove a completed form and 


insert a blank form in the terminal. 
3 line pause, 


5. Specify that a blank line is to be produced between two non-blank 
lines. 


3 line, 4 some field char (20), 
3 line +2, 4 another field char (20), 


Another way: 
3 line, 4 some field char (20), 


3 line, 
3 line, 4 another field char (20), 
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Line 


Syntax Rules: 


General 


11/82 


Vs 


1. 


Examination of the Heading, Detail, and Footing groups shows the Line 
group may be used several times in a row to define a set of lines that 
are treated as a unit. 


The option grouped with the PAUSE option is the digit zero. 
The difference between the integer-14 and the integer-15 choices is 
the plus sign and the subsequent interpretation. 
There are two possible major choices within the large braces. The 
first major choice is comprised of the three sets of brackets at the 
top of the general format. Since all three items are in brackets, and 
hence optional, it is possible and valid for one major choice to be 
nothing. The second major choice is comprised of the small braces 
containing PAUSE and 0 followed by the optional IF test. 

Rules: 
If the integer-14 choice is made, it specifies the absolute line number 
that the line is to be printed on. The minimum value of integer-14 is 
one. 
If the "+ integer-15" choice is made, it specifies where the line is 
to be printed relative to the previous line. The value +1 results in 
single spacing, +2 is double spacing (i.e, one blank line between 
printed lines). The value +0 should not be used (i.e., overprinting 
cannot be handled). 
If the upper portion of the general format is chosen and neither integer-14 
nor integer-15 are specified, the default produces single spacing just 
as though +i is specified. 
When an IF (Full_Expr-5) test is specified, Full_Expr-5 is evaluated 
and the result is tested. In the event that the IF test succeeds, the 
line is produced, with a newline character as the last character of 
the line. Should the IF test fail, the line is not produced nor is a 
newline character produced. If the line becomes a candidate for being 
produced, then a similar IF test within each field's definition may be 
specified to determine whether or not each field is to be produced. 
(See "Report Field Def" group for details.) When the line is produced, 
a newline character is written at the end of the line, even if some 
fields are defined but none of them are produced, or even if no fields 
are defined. 
It is possible to define one or more fields and omit the IF (Full Expr-5) 


test. In this case, a newline character is written at the end of the 
line, whether or not anything is produced for any of the fields. 
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Line 


It is possible to select as the major path in the Line group the upper 
portion of the general format, but to omit all three items shown in 
brackets by using: 


If this is done, a line that consists of only a newline character is 
produced, giving a blank line in the output. 


‘When an IF (Full Expr-6) test is specified, Full Expr-6 is evaluated 


and the result is tested. In the event that the IF test succeeds, the 
actions described below for the PAUSE keyword or O that preceded the 
IF test occur. Should the IF test fail, then the actions do not 
eceur:, 


If a zero digit follows the LINE keyword and there is either no accompanying 
IF test, or an accompanying IF test succeeds, the following occurs: 


e The page is closed out (i.e., any specified page footing 
lines are produced) 


e The output advances to an end of page position 


If the PAUSE keyword follows the LINE keyword and there is either no 
accompanying IF test, or an accompanying IF test succeeds, the following 
occurs: 


e The two steps described in General Rule 8 


@ If the output is being sent to the user_output I/O switch 
the MRPG-OS pauses until a newline character is read from 
the user_input I/0 switch 


Usually, user Pe and user_output are attached through the tty_ 1/0 
module to the user's terminal. This enables the user to print a page 
of the report on a high-print-quality terminal and have the MRPG-OS 
pause so that the user can remove that page from the terminal, insert 
and position a fresh sheet of paper, and then direct the MRPG-OS to 
continue producing the report by pressing the RETURN key. With this 
technique, the user can produce a report with a carbon film ribbon on 
a’ preprinted form. However, the actions listed above occur even if 
user_output is not attached to a terminal (e.g., user_output being 
sent via vfile_ to a segment). But in this case, it is difficult for 
the user to know when the MRPG-OS pauses. Similarly, user_input can 
be attached to a file rather than a terminal, but this complicates 
knowing when to provide the newline characters from user_input. 

Therefore, it is recommended that user_input and user output be attached 
to a terminal whenever the PAUSE feature is used. 
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12. 


Line 


It is possible for one occurrence of the Line keyword to produce more 
than one output line. This can happen if either the FILL or the FOLD 


option of the Report Field Def group is specified. The quantity of 
output lines can vary in the same report, depending on the input data 
or on other variables. (See "FILL" and "FOLD" examples in the 


Report Field Def group). 


If the LINE integer-14 option is chosen more than once within the 
declaration of a report, the integer~14 values must increase as those 
values are encountered in progressing through the report's definition. 


There is one circumstance in which the quantity of extra blank lines 
is less than the quantity specified by integer-15. This occurs when 
the current line of the output report is near the bottom of a page and 
a "3 LINE +integer-15" phrase is encountered. Suppose that the LINE 
Phrase of interest is part of a DETAIL set of lines. Further suppose 
that there is room for only three more detail lines on the current 
page, and a 10 was specified for integer-15. Three blank lines are 
appended to the report. If specified, page footing and page heading 
lines are also appended, but the remaining seven potential blank lines 
are omitted. 


A specific example can be seen in Section 2 (refer to Figure 2-3). 
Line 29 of the MRPG source program is "3 line +3," and is intended to 
cause two blank lines to precede the DETAILHEAD line. This occurs at 
lines 17-20 and 30-33 of the output report. However, although there 
are two blank lines for lines 5-6 of the report, they are not caused 
by line 29 of the source program. The +3 on line 29 is ignored, 
inasmuch as the report is initially at the top of a page. Rather, 
lines 5-6 of the report are blank because of the +2 on line 27 of the 
source program. Line 27 is part of the PAGEHEADING set of lines. 


The general rule is that no "extra" lines are produced at the top of a 


page ° 
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Group Name: Relationship Test 


The Relationship Test group is logically part of the Full Expr group, and 
is separated only because it is awkward putting both groups on the same page 
because of space requirements. In addition to the details discussed here, 
Section 7 contains a unified treatment of the interactions between the rules 
stated in the Full Expr group and its subsidiary groups. 


General Format: 


Char Expr-7 Char _Expr-8 
BEGINS 


CONTAINS [ WORD ] 


ENDS 
BEGIN 
{ ot CONTAIN » [ worD | 
END 


Examples: 


1. Numeric example. 

salary > 10000 

tax rate = 4.5 

tax rate eq 4.5 

part cost <= cost target 
2. Character string example. 


job title “= "Manager" 
"Jones" = last_name 
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3. String 


matching 
following and that 


example. 


Assume 
each white space area 


that four 


contains one or more space characters. 


4, 


Relationship Test 


variables 


contain the 
between the quotation marks 


title 1 "fundamentals of geometry" 
title 2 "builtin functions" 
title 3. “only for fun" 
title 4 ™ fun can be fun " 
This expression has this value 
title 1 begins "Ton" true 
title 1 begins "Fun" false 
title 1 not begin "fun" false 
title 1 contains "fun" true 
title 2 not begin "fun™ true 
title 2 ends "fun" false 
title 2 not end "fun" true 
title 2 contains "fun" true 
title 3 ends "fun" true 
title 4 begins "fun" false 
title 4 contains “fun" true 
title 4 ends "fun" false 
This example is identical to the above except that the matching is 
done on a word basis, rather than on a string basis. 
title 1 "fundamentals of geometry" 
title 2 "builtin functions" 
title 3 "only for fun" 
title 4 " fun can be fun #* 
This expression has this value 
title 1 begins word "fun" false 
title 1 begins word "Fun" false 
title 1 not begin word "fun" true 
title 1 contains word "fun" false 
title 2 not begin word "fun" true 
title 2 ends word "fun" false 
title 2 not end word "fun" true 
title 2 contains word "fun" false 
title 3 contains word "fun" true 
title 4 begins word "fun" true 
title 4 ends word "fun" true 
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Syntax Rule: 


There are no constraints on the types of expressions whose relationship may 
be tested. Char Expr-7 and Char Expr-8 may be decimal, character, or 
boolean values. Thus, there are nine data type matching and mismatching 
combinations. The general rules in this group specify which value is 
converted into a different type for the six mismatching combinations. 
Section 6 provides the detailed conversion rules for the possible 
conversions. 


General Rules: 


14 The alphabetical and mathematical notation used for the six 
mathematical operators are: 


LE &&% less than 

LE <= less than or equals (not more than) 

EQ: <= equals 

GE >= equal to or greater than (not less than) 
GT > greater than 


NE = not equal 


ae To perform a relationship test, both operands must be of the same data 
type. When necessary, MRPG generates the PL/I statements needed to 
convert. Char_Expr-7 or Char _Expr-8. 


3% If the relationship operator is one of the mathematical operators (see 
General Rule 1) and both of the operands are of the same type, then no 
conversion is needed. The comparison is made and the result is either 
true or false. If the data types of the operands differ, the 
following table specifies which data type is converted to a temporary 


value. 
Data Type Combinations Data Type Conversion 
boolean and decimal boolean to decimal 
boolean and character boolean to character 
decimal and character decimal to character 
4, The string operators are listed in this rule and explained in later 
ruies. 
BEGINS CONTAINS ENDS 


NOT BEGIN NOT CONTAIN NOT END 


5. If the relationship operator is one of the string operators listed 
above, then Char _Expr-7 and Char _Expr-8 are both converted to 
character values if they are not already character values. 


6. When two character expressions of unequal length are compared, the 
shorter expression is assumed to have sufficient trailing spaces to 
make the lengths equal. 


Ls The BEGINS, CONTAINS, and ENDS operators determine if Char _Expr-8 
appears in the specified position within Char Expr-7. For the BEGINS 
test to be satisfied (i.e., give a "true" result) the character string 
specified by Char Expr-8 must occur at the beginning of the string 
specified by Char Expr-7. For the ENDS test to be satisfied, the 
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Char _Expr-8 string must occur at the end of the Char Expr-7 string. 
For the CONTAINS test to be satisfied, the Char Expr-8 string must 
occur somewhere in the Char Expr-7 string, including at the start or 
the end of the Char Expr-7 string. For the NOT versions of the tests 
to be true, the Char Expr-8 string must not occur’ in the specified 
position. - 


When the WORD keyword is omitted, searching is done on a= strict 
character by character basis. Char Expr-8 can contain white-space 
characters. Lf Char Expr-8 has three adjacent spaces between 
non-space characters, then in order for the result to be true, 
Char Expr-7 must have exactly three spaces between the surrounding, 
matching, non=space characters. (See Example 3 .) Contrast this with 
the next rule. 


When the WORD keyword is specified, searching is done on an English 
word basis. Char Expr-7 can be thought of as being subdivided into 
substrings by the Char Expr-7 delimiters. The ends of Char _Expr-7 are 
delimiter positions.  White-space characters within Char _Expr-7 are 
delimiters. One or more contiguous white-space characters are treated 
as one delimiter. If Char Expr-8 contains any white-space characters, 
the result is false, independent of the value of the Char _Expr-7 
String. (See Example 4.) 
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Group Name: Report Control 


The Report Control group enables the user to specify several values and 


actions that 


apply to the report as a whole. 


General Format: 


O 


PAGEWIDTH 
integer-8 


PGW 


PAGELENGTH 
integer-9 
PGL 
MINLINE 
MINL 
MAXLINE 
integer~11 
MAXL 


| input_field name-1 | S) 
- ) 


integer-10 


BREAK ( 


ff local variable name-1 


FILE Char_Expr-2 
SWITCH Char_Expr-3 
ae 
FILE Char Expr-2 
( = 
ton Char_Expr-3 
ON OR 
IF ( Full _Expr-3 ) 
! 
i 


FILE Char Expr-2 
SWITCH Char_Expr-3 


) 
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Examples: 


Specify the amount of space on a page that is available for the report. 
pagewidth 70 
pagelength 50 
minline 5 /* This is the range of */ 
maxline 45 /* lines for detail info. #*/ 

Identify input fields whose change of value triggers a control break. 
break (department_code, pay_class) 

Specify the segment into which the report is written. 
on file "your_output" 

Another way to send the report to the same segment is: 


on switch "vfile_ your output" 


Specify that the segment into which the report is written depends on 
the value of a parameter that is received when the MRPG-OS is invoked. 


del 1 parameter, 2 where char(*), 2 0 f char(*) 
Key ("-of") DEFAULT ""; 


define 1 report payroll analysis 
on (file "pay _anal.exempt" if (where = "e") 
or file "pay anal.nonexempt" if (where = "n") 
or file "pay _anal.hourly") 


define 1 report latent 
on. Chile: "output™ if Co 4" S"") 
or switch "user output")... 


Syntax Rules: 


11/82 


Notice in the general format that the digit "1" at the upper left of 
the left-hand double bars indicates the highest-level options can occur 
only once. 


A name should not appear more than once in the list for a BREAK option. 


The same name may be used in BREAK options in different reports. 
Repetition may occur within the ON option, as indicated by the ellipsis. 
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Rules: 


The value of integer-8 specifies the maximum quantity of horizontal 
printing positions (i.e., print columns). The default value is no 
limit. If the default is used and a report line does not fit on the 
output device, the normal Multics standards govern the handling of the 
excess characters, which are usually continued onto the next iline. 
The PAGEWIDTH value is the same for every line in the report. 


The value of integer-9 specifies the quantity of lines on the physical 
sheet of paper. There are some subtleties here concerning exactly how 
the report can be printed that are deferred to Section 9 of this 
manual. The default value is 66 if the report is being written to a 
segment. The PAGELENGTH value is the same for every page of the report. 
If the report is being written on user_output, the default value is no 
Limlt. 


The value of integer-10 specifies the number of the lowest-numbered 
line on which a detail heading, detail data, or detail footing line 
can appear. If the page and/or report heading lines occupy fewer than 
one less than integer-10 lines, enough empty lines are skipped so that 
the first detail type of line falls on the integer-10th line. 


If the MINLINE option is not specified, and no page heading lines are 
defined, the default value for MINLINE depends on where the report is 
to be written. (The FILE and SWITCH keywords may occur several times, 
but the conditional tests of Full_Expr-3 result in either one SWITCH 
option or one FILE option being selected at execution time.) 


a. If a FILE option is selected, the default MINLINE value is 4. 


Ds “If a SWITCH option is selected, and the name of the I/0 switch is 
user output, the default value of MINLINE is 1. 


oom If a FILE or SWITCH option is not specified, the default value 
for MINLINE is 1. 


If the MINLINE option is not specified, but page heading lines are 
defined, the default value for MINLINE is one more than the quantity 
of page heading lines that are defined (i.e., MINLINE is one more than 
the quantity of times that the LINES keyword occurs subservient to the 
PAGEHEAD keyword). This means that it is possible to define six page 
heading lines and also know that no more than four will ever appear on 
a page because of the conditions chosen and the nature of the input 
data. If this is done, the default MINLINE value is 7, but it is 
valid to include MINLINE 5 in the report definition, which is the only 
way to utilize the two extra lines. 


However arrived at, some value is established at generation time for 
the MINLINE value for the report as a whole. For use in the discussion 
of other groups, call this MINLINE value report_minline. This value 
is established even if the entire Report Control group is omitted. 


The value of integer-11 specifies the number of the highest-numbered 
line on which a heading, detail, or footing line may appear. If line 
integer-11 is reached and another detail line becomes available for 
output, the old page's footing lines are written, an advance is made 
to the next page, the new page's heading lines are written, and then 
the detail line is written. 
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If the MAXLINE option is not specified, but page footing lines are 
defined, the default value for MAXLINE is one less than the absolute 
line number of the first page footing line. (See "PAGEFOOT" in the 
Footing group and "integer-14" in the Line group.) 


If the MAXLINE option is omitted and page footing lines are undefined, 
the default value for MAXLINE is the number of the last line on the 
page. 


However arrived at, some value is established at generation time for 
the MAXLINE value for the report as a whole. For use in the discussion 
of other groups, call this MAXLINE value report_maxline. (The value 
is established even if the entire Report Control group is omitted.) 


Names listed in a BREAK option specify input fields or local variables 
whose change in value from one record to the next triggers a control 
break. The names are used in DETAILHEAD options in the Heading group 
and in DETAILFOOT options in the Footing group. The first name in the 
list is associated with break level 1, the second with level 2, etc. 
These level numbers are used with the @LEVEL option in the Full _ Expr 
group. When a break occurs, that level and all higher-numbered levels 
also have a break. 


For example: 
break (dept_code, pay_class, job title) 


When a new record is obtained, if the content of the pay class field 
changes, then a level 2 break occurs. In addition, a level 3 break 
for job_title also occurs, whether or not the content of the job title 
field changed. The detail footing lines for level 3 are produced, 
followed by the detail footing lines for level 2, then the detail 
heading lines for level 2, followed by the detail heading lines for 
level 3, and finally, the detail lines associated with the input record 
that triggered the control break. 


The test that determines whether or not a control break occurs is made 
near the beginning of the execution of the PL/I statements that are 
generated for a PRINT statement. These statements are executed for 
each input record. If a control break occurs, the current value of 
the input field or local variable is saved for use in the test for a 
later record. Should the control break be at other than the 
highest-numbered level, the input fields and/or local variables for 
this level and for all higher-numbered levels are saved. 


Usually, input fields are used for control breaks. A local variable 
whose value is saved for each input record has the general appearance 
of an input field in subsequent phases. A HOLD statement is used to 
save the values that the input fields and local variables have for 
each input record. The local variable named in a BREAK option need 
not have had its values saved by a HOLD statement. However, unless 
the value of that local variable is changed by assignment statements 
in LET options of the Report _Field Def group, no control breaks occur 
for this local variable. 


The maximum quantity of break.levels is 998. 


The ON option specifies where the report is to be written. If the ON 
option is omitted, the report is sent to the user_output I/0 switch. 
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Char_Expr-2 must be a character string. It is used by the vfile_ 1/0 
module as the relative or absolute pathname of a segment for the file. 
The MRPG language does not impose any constraints on the characters in 
the string. However, the intended use of this string does impose 
constraints. Allowable characters and the length of the string are 
restricted to what is allowed in relative pathnames of segments. (See 
"Section 3" of the MPM Reference Guide.) 


Char _Expr-3 is a character string that describes the destination. If 
the string contains no blanks, it is assumed to be a switch name. 
Otherwise, it is used as an attach description for an I/0 module, 
usually the vfile_ module. The ATTACH keyword must be supplied to use 
an I/O module other than the vfile_ I/0 module. (Refer to the MPM 
Subroutines, MPM Subsystem Writers' Guide, or the MPM I/O manuals for 
details of the required attach description.) 


The IF test permits the report to be sent to different places, depending 
on the result of evaluating Full Expr-3. Keep inmind that the Char Expr-2 
or Char_Expr-3 which is used belongs to the FILE or SWITCH option that 
precedes the IF test. The first IF test that is satisfied ends the 
output path selection process. Assuming that none of the IF tests are 
satisfied, the report is sent to the destination specified by the last 
FILE or SWITCH phrase (i.e., the FILE or SWITCH that immediately precedes 
the right parenthesis that ends the ON clause). 
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Group Name: Report Field Def 
The Report Field Def group defines the content, format, and position within 


a line of one field to be printed. 


General Format: 


, 4 Char_Expr-4 


, O 
input_field_name-4 
LEP re) Pull Expre¢-% Stee 2 
local variable name-2 

COLUMN 

integer-16 

COL 

0 


BSP 


ALIGN "string-8" 


PICTURE 
"string-3" 
PEC 


f CHARACTER 


LEPT 


( integer-17 ) CENTER 


[ i CHAR 


RIGHT 


Examples: 


Several examples include items from the Char_Expr group to illustrate the 
interaction between certain character expressions and the keywords specified in 
this Report Field Def group. 
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Define a line that produces the fourth through sixth lines shown below. 
The first line identifies the fields. The second line contains the 
starting column positions of each field. The third line indicates 
where characters can fall in the field. 


pay_no dept salary last name degree 
1 8 13 oy 38 
XXXXX XXX XXXXXXXXX XXXXXXXXXXXX XXXX 
11111 275 $2,567.00 Anderson MBA 
22222 349 $487.00 Lewis 
33333 583 $969.72 Bradford BS 

4 pay_no char (5), 

4 dept char (3) col 8, 

4 salary picture "$$,$$9v.99" col 13, 

4 degree char (4) right col 38, 

4 last_name col 24 char (12) left, 


Define a field that is produced only if the department code is greater 
than a value supplied as a parameter. 


del 1 parameter, 2 dept code limit; 


4 if (dept_code > dept_code_ limit) "Invalid dept code" col 70, 


LET example. Assume that the MRPG-OS finished processing the 27th 
input record and produced an output line. Further assume that: 


The input field "cost" of record 28 contains 300 
The input field "cost" of record 29 contains 410 
The local variable "factor" contains 10. 

Then: 


4 cost + factor let(cost := cost + 30; factor := factor + 5;) 


yields 345 for record 28 ((300 + 30) + (10 + 5) => 345) 
and 460 for record 29 ((410 + 30) + (15 + 5) => 460). 


After processing record 29, factor contains value 20. 
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e Record 35 has just been processed 

e The input field "weight" of record 36 contains 157 

e The local variable "shrinkage" contains 23 
Now consider the following: 

4 if (weight < 150) weight - shrinkage 

let (weight := weight - 10; 
shrinkage := shrinkage + 13), 

After the assignments in the LET statements are executed, weight 
contains 147. Then the IF test is made. Since 147 is less than 150, 
the IF test succeeds. The evaluation of this report field yields 123 
in the output line, which is calculated as (157 - 10) - (23 +1). 
Weight now contains i147 and shrinkage now contains 24. 
An example using BSP (backspace). Assume the field title contains: 

PART COST 
The string is 25 characters long (it contains eight letters, eight 
backspaces, and nine underscores). It can be printed using the 
following field definition: 

4 title char (9) bsp, 


ALIGN example. Assume that the test data field in successive input 


records contains the following information. (The decimal points are 
gaatialley nvaeaant Gn Fhe GHnnnt Fialaae \ 
aCuuadlilyY prooclv atl UNS Litpuvy Litlsunes 


1.2346 
57. 966 
389.72 
687 . bb 
646554 


Then: 
4 test data col 21 align ".", 
yields: 


1.234 
57.9 
389.72 
87. 
54 


with the decimal points in column 21. The last line, not having a 
decimal point in the input field, is positioned with the 4 in column 
20, just as though a decimal point had been present in the input 
immediately following the "4" character. 
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OVERLAYING of data. Assume the heat factor field in the next input 
record contains 123.456 and that some of the fields for an output line 
are defined as: 

4 “"abede" col 21, 

4 4" col 26, 

4 "fephij" col 27, 
The output result is: 

abcde+fghij 
Replacing the second field to give: 

4 "abede" col 21, 

4 heat factor col 26 align ".", 

4 "fghij" col 27, 
yields: 

ab123.fghij 
Interchanging the second and third fields to give: 

4 “"abede" col 21, 

4 "fghij" col 27, 

4 heat_factor col 26 align ".", 
yields: 

ab123.456ij 
The physical placement of characters in a printed line can be affected 
by an IF test and the content of the previous field. The information 
arrangement is: 


line from MRPG program 


content and length of field 2 yields printed result 


a. A base case: 


3 line, 4 "FIRST_" col 1 char(6), 4 field_2 char(5), 4 "-THIRD" 


field 2 length — yields 
piggyback 9 FIRST piggy-THIRD 


piggy 5 FIRST piggy-THIRD 
pig 3 FIRST pigbsé-THIRD 
0 FIRST bbbSS-THIRD 


In the last line, field 2 contains nothing (i.e., a null character 
string). 
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Omit the char(5) for field 2: 
3 line, 4 MEDRST. ™ col 1 char(6), 4 field ‘2, 4 WoTHIRD" 


field 2 length yields 


piggyback 9 FIRST piggyback-THIRD 
piggy 5 FIRST piggy-THIRD 
pig 3 FIRST pigéé-THIRD 

0 FIRST BBS4K-THIRD 


Specify an IF test that results in field 2 being used. Assume 
that test field has 5 as its current value. 


4 if (test _field = 5) field2 ... 
gives the same results as in Examples a and b. 


Specify an IF test that fails and do not specify a position for 
the following field: 


3 line, 
4 "FIRST " col 1 char (6), 


h-if (5-= 7) field.2 char (5), 
4 MLTHIRD", 


yields the result FIRST _-THIRD which is independent of the length 
and content of field _2 and independent of whether or not a COLUMN 
or CHARACTER option is specified for field_2. 


Change "Example d" by specifying a column position for the field 
that follows field 2: 


3 line, 
ME ITRST. Gol, “1 ehar (06) 5 
tat (52 P)ig Tield. 2 char: (5); 


u rw_oTHTRHY 19 
vy 


bf 

= Al 
hsaa de Wo lay 

yields the result FIRST BBbSO4-THIRD which is independent of the 

length, content, and COLUMN or CHARACTER options of field 2. 


PICTURE phrase example. Assume that the variable some data contains 
the value 123.456 and that it is printed with several different 
pictures. For example: 


4 some_data col 21 picture "+999v.999", 


yields +123.456 in the output line, with the plus sign appearing 
in column 21. 


Picture Yields 


s(3)9v.(3)9 +123.456 
(3)9v.(3)9er 123. 456bb 
(3)9v.(3)9db 123. 456bb 
(5)zv.99 B6123.45 
$$$$v.99 $123.45 
$$$, $$$vV.99 66b$123.45 
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4 "pig" char (7) left, yields pigbBBbsb 
4 "pig" char (7) center, yields bbpigksb 
4 "pig" char (7) right, yields bbe Kpig 


Syntax Rule: 


Gener 
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The LET keyword cannot be used more than once in defining a report field. 
Multiple assignment statements may exist within parentheses. 


al 


1. 


Rules: 


The end result of evaluating Char _Expr-4 is a character string. The 
length of the string depends on the details of the Char Expr evaluation. 
The resulting string is a value that is to be placed in the output 
line. 


If a LET clause is present, the program must specify one or more 
assignment statements within the LET clause. The statements in a LET 
clause are executed as part of executing a PRINT statement in the 
Execute Phase group. 


If a LET clause is present, the items on the lefthand side of the LET 
assignment statements may be referenced in Char_Expr-4. The LET 
assignment statements are executed before evaluating Char Expr-4. (See 
Examples 3 and 4 in this group discussion.) ~ 


If the COLUMN integer-16 phrase is used, the value of integer-16 defines 
the column position to use for the start of the field unless the ALIGN 
keyword is also used. (See "General Rule 9" if ALIGN is used.) 


A report field's length is automatically increased by one character in 
certain situations. Usually, this appears to the user as though a 
space character is appended to the right-hand end of the report field's 
Vaiue. (See "General Rule 9" for a discussion related to when the 
character to the right of the report field might be something other 
than a space.) The report field length is extended by one character 
is to provide one space between adjacent columns of data without the 
writer of the source program having to take specific action. The 
general rules as to when the length extension occurs are stated below, 
followed by several examples in Table 5-1. 


ae A field is lengthened if its definition does not include the 
CHARACTER keyword, unless the field value is a literal character 
string. (A report field defined as a literal character string 
and without the CHARACTER keyword occupies only the quantity of 
column positions that the literal occupies.) 
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A field is lengthened if its value is the result of an arithmetic 
operation and the field definition includes the CHARACTER keyword 
but does not include the LEFT, CENTER, or RIGHT keywords. 


A field is lengthened if its definition includes the PICTURE keyword. 


A field is not lengthened if its value is a non-literal character 
string and the field definition ineludes the CHARACTER keyword. 
The character string may be obtained from the value of an identifier 
that is declared with either the CHARACTER or the BOOLEAN keyword. 
The value may also be obtained by concatenating two or more items. 
Those items may be anything, including decimal literals and decimal 
identifiers. 


The abbreviations used in Table 5-1 are: 


dec id 
~ Decimal identifier, a user-selected name associated with a 
local variable or an input field. Its declaration includes 
the DECIMAL keyword. 


ehar_id 
Character identifier, a user-selected name associated with 
a parameter, a local variable, or an input field. Its 
declaration includes the CHARACTER keyword. 


num_char_id 
like char_id, but the value is a number. 


bool _id 
Boolean identifier, a user-selected name associated with a 
parameter or a local variable. Its declaration includes 
the BOOLEAN keyword. 


dec lit 
A decimal, literal value (e.g., 1234). 


char lit 
A character, literal value (e.g., "TOTALS:"). 


bool lit 
A boolean, literal value (e.g., true). 


ehar(n) 
The CHARACTER keyword is used in the declaration of the 
report field and "n" stands for the value that is specified 
for integer-17. 


ASMD 


One of the add, subtract, multiply, or divide arithmetic 
operations. 


The string CONCATENATE operation. 


If the LEFT, CENTER, or RIGHT keyword appears in the report field 
definition, the field is not lengthened. 


For the purpose of explaining the examples in Table 5-1, assume that 
the next few lines appear in the MRPG source program. 
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del ddd decimal; del cece character(3); del bbb boolean; 
ddd := 23; cee := "cow"; num_cee := "35"5 bbb := true; 


The meaning of the third and fourth columns of the table is as follows. 


Consider the first line of the table as an example. In the third 
column, the report field's definition is assumed to be: 


while in the fourth column, the field's definition is assumed to be: 


4 dec_id char(2), 


Table 5-1. Automatic Lengthening of a Report Field 


Is Report Field 
Lengthened? 


Field Is 
Defined 
With Char(n) 


Field Is 
Defined 
As Shown 


Field Description 


ddd 
Oe 


dec_id 
dec lit 


ddd 
98 
98 


ddd 
ddd * num_ccc 
ddd + (true) 


dec_id it dec_id 
dec lit i dec lit 
dec lit ASMD dec_lit 


dec_id ASMD dec lit 
dec_id ASMD num_char lit 
dec_id ASMD bool lit 


dec_id picture "picture string"; ddd pic "99" Yes -- 
ehar_id eee Yes No 
char lit "boy" No No 
char lit ty char lit "cow" it "boy" Yes No 
num_char_id num ccc | Yes No 
num_char_id ASMD num_char_id num_cce + num _cce Yes Yes 
num_char_ lit ASMD num_char_ lit Cmy56") * ("7BQ") Yes Yes 

bool _id bbb Yes No 
bool lit (true) Yes No 
bool_id it bool lit bbb | it (false) Yes No 
bool _id ASMD bool _ lit bbb + (false) Yes Yes 
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When a numeric literal whose absolute value is less than one is supplied 
as part of a report field definition, a zero digit is supplied immediately 
preceding the decimal point. Thus, -.56 is printed as -0.56 while 
4i,-32 becomes 40.32 with the 0 coming from converting the .32 into a 
character string so that the concatenation may be done. 


The BSP option is provided to increase the efficiency of generating 
and executing an MRPG program. The BSP option need not be used when 
Char_Expr-4 is a literal, even though the literal contains backspace 
characters. This is the case on lines 36 and 37 of the example in 
Section 2. Usually, input information or information created within 
the MRPG-OS does not contain any backspace characters. Therefore, the 
usual generation-time and execution-time procedure is to ignore the 
possibility of backspace characters being present. Use of the BSP 
option results in additional coding that carries out the complicated 
steps of properly handling a string that contains backspace characters. 
If the field is defined using anything other than quoted strings and 
the values being referenced may ever contain any backspace characters, 
then the BSP option must be specified. 


In the ALIGN phrase, string-8 is usually a single ASCII character. 
That character should exist in the data strings that are to be processed 
to yield the field being defined (see "General Rule 8"). If the single 
ASCII character that is wanted for string-8 is the quote character, 
then four, not three, quote characters must be supplied following the 
ALIGN keyword. When several output lines that contain a field whose 
specification includes the ALIGN keyword are produced, the characters 
in those fields are positioned left or right as needed so that the 
first occurrence of the string-8 character in those several fields 
falls on the same column position. When the COLUMN and ALIGN keywords 
are both specified for the same field, the value of integer-16 is the 
column number that the string-8 character falls on. 


This rule regarding ALIGN is independent of the use or omission of the 
COLUMN phrase. Further, this rule is applicable to all fields whether 
or not their definition included the ALIGN keyword, but is more likely 
to come into play for ALIGNed fields because of the left or right 
Sliding that can occur with ALIGNed fields. 


The column positions associated with a field may overlap some or all 
of the column positions associated with one or more other fields. If 
so, the earlier information is overlaid, thereby destroying the earlier 
information. 


No error or warning message is produced at program generation, compilation, 
or execution time. Thus, the last field to place information into a 
particular column position takes precedence. The time sequence in 
which fields are placed into an output line corresponds with the physical 
sequence in which the definitions of the fields occur in the source 
program (see Example 7). 


Consider a field whose definition includes an ALIGN phrase. If the 
string-8 character does not occur in the character string that is to 
be placed in an output line, the character string is aligned as though 
the string-8 character immediately followed the character string. 


Use of the PICTURE "string-3" option provides extensive flexibility 
for converting numerical data into a modified representation in areport 
field. Whatever is supplied as string-3 is checked for validity using 
the PL/I compiler's standard picture verification subroutines. Assuming 
that no errors are detected, string-3 is passed to the PL/I compiler 
as part of the generated PL/I source program. Thus, the full PL/I 
picture editing capability is available to an MRPG program. (This is 
not the full PL/I picture capability. The PL/I picture encoding 
capability, used in PL/I programs to convert numerical data into a 
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character representation that is placed in storage for further use, is 
not accessible to the MRPG language.) Since the PL/I picture editing 
capability is extensive and may change with time, describing it here 
is beyond the scope of this manual. The reader should refer to the 
Multics PL/I manuals for complete details. This is a PL/I characteristic. 


When the CHARACTER option is chosen, integer-17 specifies the quantity 
of column positions available to the field. 


The LEFT, CENTER, and RIGHT options specify that, when the output 
character string is shorter than the field width specified by integer-17, 
the output string is to be left-justified, centered, or right-justified, 
respectively, in the output field area. Spaces fill any unused column 
positions. If the character string to be placed in the report field 
is interpreted by the MRPG-OS as being a numerical value and the LEFT, 
CENTER, or RIGHT keyword is not present, the default is RIGHT. If the 
character string is not a numerical value, the default is LEFT. 
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Group Name: The MRPG Program 


This 


page shows the overall structure of a. source program. The remainder 


of this section expands the general format shown below into a complete, detailed 
specification of the language. 


General Format: 


Examples: 


[ Declare Parameters ] 
Declare Input File 

[ Declare Variable ] 
{ Define Report } este 
{ Execute Phase } see 


END: 3 


See Section 2 for a complete example, including input data, source 
program, and the report. 


See Appendix B for additional examples. 


Syntax Rules: 


Note that the Declare Input File, Define Report, and Execute Phase 
groups are required. The other two groups are optional. An "“end;" is 
also required. 


The three ellipses mean that the Declare Variable, Define Report, and 
Execute Phase groups may be repeated (i.e., their general formats may 
be used over and over). 


Whichever groups are used must be used in the order shown above. 


General Rules: 


The Declare Parameters group is used whenever the MRPG-OS needs to be 
able to accept parameters. 


The Declare Input File group is used to describe the structure of the 
input file, to identify those fields to be used by the MRPG-OS, and to 
assign attributes to the fields. 
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ee The Declare Variable group is used whenever some information not 
explicitly contained in the input file must be constructed and saved 
for use at a later point in executing the MRPG-OS. However, the use 
of control breaks does not require the inclusion of the 
Declare Variable group. 


y, The Define Report group is used to describe the layout of the reports, 
control breaks, and where the MRPG-OS is to send the reports. 


oir The Execute Phase group contains the statements that trigger the 
actual printing of the detail lines of the report(s). The printing of 
headings and footings occurs automatically as detail lines are 
created. Calculations that assign values to local variables can 
reside in the Execute Phase group of a program. Sorting may also be 
specified in this group. 
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DATA TYPES 


This section contains general information about data types and conversion 
between data types. 


As in earlier sections, other forms of a keyword also apply when one of the 
forms is used in this section. Thus, CHARACTER means both CHARACTER and CHAR, 
AND means both AND and &, and LE (less than or equal to) means both LE and <=. 


TYPES OF DATA 


The set of keywords that identify data types and are pertinent to data 
conversion are: 


DECIMAL 
CHARACTER 
BOOLEAN 
PICTURE 


After a brief discussion of each of the above data types, the rules 
governing the combining of and conversion between data of different types are 
presented. 


Usually, the implementation details of which PL/I attributes apply to the 
Variables in an MRPG source program is of no concern to the programmer. 
However, if it becomes necessary to know the PL/I attributes, they can be 
obtained from an examination of the PL/I source produced by the MRPG. Or, if 
the PL/I control arguments that were received by the MRPG and passed on to the 
PL/I compiler caused a PL/I listing to be produced, the PL/I attributes may be 
obtained from the listing. It is easier to obtain the attributes from the .list 
segment than from the .pl1 segment, but there is ordinarily no need to have the 
PL/I compiler perform the extra work required to produce a listing. 


In this section, the term "variable" is used in its general _ sense of 
referring to a data item whose value may be different at different times. That 
is, "variable" is not restricted to local variables. 
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Decimal Data 


Integers, numbers, and variables declared with the keyword DECIMAL can all 
be thought of as being kept and treated as decimal data when these items are 
used in an arithmetic sense. The limits on the sizes and resolution of 
integers, numbers, and decimal variables is determined by the MRPG 
implementation. 


INTEGERS 


Integers are handled as fixed bin(35) data, which implies that the range of 
integers is: 


=2#* 35 


~ 34,359,738, 368 
34,359,738, 367 


to 
2k *35-1 


where ** denotes exponentiation. 


However, the limits on the sizes of integers are far smaller than indicated 
here. These limits vary with the use of the integers and are fully discussed in 
Section 5. 


NUMBERS AND DECIMAL VARIABLES 


Numbers and decimal variables are handled as float decimal(20) data. This 
is true even when the number or decimal variable has an integral value. This 
float decimal(20) form is used even if the number or decimal variable does not 
contain an explicit decimal point, that is, the value being assigned is equal to 
an integer. With this representation, values up to 20 digits in length may be 
used. Thus, the following are all valid assignment statements in an MRPG source 
program: 


amount := .00000000000000000001; 
amount := +.12345678901234567899; 
amount := 5.98; 

amount := -1234567890. 1234567899; 
amount := 99999999999999999999.; 


The limit of 20 digits is just that, 20 digits, not 20 characters. That 
is, a sign character and a decimal point may be present in addition to the 20 
digits. Thus, up to 22 characters can be used to specify a decimal value and 
all 20 digits of significance are retained. 


It is true that the float decimal(20) form can accommodate much larger and 
much smaller values than the values shown above. A 30-digit integral value 
could be supplied, but only the most significant 20 digits are retained. 
Rounding of the 20th digit may occur. If this value is placed in a report 
field, the last 10 digits (least significant) are zeros. 
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Character Data 


The keyword CHARACTER and the "string-n" construct appear’ throughout 
Section 5. The associated data are strings of ASCII characters. The upper 
limit on the length of a character string is the PL/I limit of 256 characters. 
However, the rules in Section 5 restrict most character strings to much shorter 
lengths. 


As in PL/I, the appearance of the VARYING keyword with the CHARACTER 
keyword indicates that the associated string's length may change. The current 
length is carried along with the string. The decision whether to supply or omit 
the VARYING keyword depends on how the variable is used. Consider the printing 
of a line that has the following layout: 


Inventory cost of <part_ name> is <part_inventory cost>. 
Assume that part name is declared char(11) (i.e., without the VARYING 
keyword) and let xxx represent the value of the part inventory cost variable. 


The printed line for the values shown in part _name are: 


part name 


value The Printed Line 
screwdriver Inventory cost of screwdriver is xxx. 
hammer Inventory cost of hammer is XXX. 
Saw Inventory cost of saw is xxx. 


If, however, the VARYING keyword is ineluded in the declaration of 
part name, then the printed lines are: 


part name 
value The Printed Line 


screwdriver Inventory cost of screwdriver iS Xxx. 
hammer Inventory cost of hammer is xxx. 
saw Inventory cost of saw is xxx. 


Boolean Data 


The MRPG programmer may think of the value of a boolean variable as being 
either true or false. The actual implementation is done with a bit string that 
is one bit long. 


Picture Data 


The PICTURE keyword is used only with report fields. The result of 
performing the transformation specified by the picture string is a character 
string. The length of the result is determined by the quantity of columns 
represented by the picture, not necessarily the quantity of picture indicators 
in the string that specifies the picture. (Refer to the discussion of pictures 
in the PL/I manuals for details.) 
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CONVERSION BETWEEN DATA TYPES 


The following conversion discussions specify what happens when various 
types of conversions are called for by an MRPG source program, either implicitly 
or explicitly. If the final usage of a value is in a report field, the value 
must be in the form of a character string, since only ASCII characters are 
placed into report fields. Therefore, if a value is not a character type, but 
is to be placed into a report field, conversion to a character string occurs. 


A common conversion situation arises in an assignment statement such as: 


target := source; 


but other situations exist and are discussed in the next few paragraphs. 


A report field definition of the form: 
4 char_item * bool item picture "<a picture string>", 


requires three conversions. Suppose char item is a character variable and 
bool_item is a boolean variable. The values of char_item and bool item must be 
converted to decimal so that the multiplication can be performed. The sum must 
then be converted into a character string according to the picture indicators in 
the picture string. 


It may be possible to determine at generation time or at compilation time 


that the conversion cannot succeed. If so, an error message is produced. 
Usually, though, a conversion failure does not occur until execution time. 
Then, the conversion condition is’ signalled. Refer to the PL/I manuals for 


discussions of signalling and conditions. Usually, a conversion condition at 
execution time results in control being returned to command level. The probe or 
debug tools may be used to investigate. 


There is no discussion of converting to or from an integer type of data 
because there is no provision in the language for requesting such a conversion. 


The conversion of a boolean value through a picture into a report field is 
not supported, and therefore, is not discussed. 


Decimal to Character 


There are four possible types of targets into which a decimal value may be 
converted: 
e Local variable declared with CHARACTER keyword 


e Input field declared with CHARACTER keyword. The input field must be 
"held" by a HOLD statement. (See "Execute Phase" group in Section 5.) 


& A report field that is neither a PICTURE nor an EDIT field 
e A PICTURE report field 


PICTURE conversions are covered in the PL/I manuals. The first three 
target types are covered here. 
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The rules that specify the fundamental conversion are the same in all three 
eases. There is some variation in what happens should certain abnormal or error 
conditions arise. The rules pertinent to justification within the target area 
and any associated padding with spaces vary considerably, depending on the 
target type. Several examples are given following the rules. 


he For purposes of explanation, assume that the decimal value is first 
converted into a temporary character string. Next, justification and 
space padding may occur as the temporary string is placed into the 
target area. 


2. If the decimal value is zero, the conversion is. complete. The 
temporary string has zero length. Advance to rule 7. 


34 If the decimal value is negative, the first character of the temporary 
string is a minus. sign. If the decimal value is positive, no 
character is placed in the temporary string at this point. 


4H, If the decimal value is equal to or larger than 1, the decimal digits 
that comprise the integral part of the decimal value are concatenated 
onto the temporary string. 


oe If the decimal value is less than 1, a zero is concatenated onto the 
temporary string. 


6. If the decimal value has a fractional part, a decimal point and those 
fractional decimal digits are concatenated onto the temporary string. 
There are no zeros in the temporary string after the least significant 
fractional non-zero digit. 


le The fundamental conversion is complete. Now justification and/or 
Space padding may occur. Advance to the rule indicated below: 


Rule No. Target Type 
8 Local variable 
8 Input field 
12 Report field 


So The length of the temporary string is compared to the maximum 
allowable length of the local variable or input field to determine 
whether or not the temporary string can fit into the target string's 
area. 


9. If the temporary string can fit, then: 


a. If the temporary string is shorter, and if the target string's 
declaration included neither the VARYING nor the SPECIAL keyword, 
then sufficient spaces are concatenated onto the temporary string 
to make its length equal to the length of the target string. 
Then the temporary string is placed into the target string. 


oa If the temporary string is shorter, and if the target string's 
declaration included either the VARYING or the SPECIAL keyword, 
then the temporary string is placed in the target string. The 
length of the target string is set to the length of the temporary 
String. 


10. If the temporary string is too long to fit into the target string, the 
temporary string is truncated to the length of the target string. No 
warning or error message is produced. The truncated temporary string 
is stored in the target area. 


Ps The total conversion for local variables and input fields is now 
complete. 
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The final actions in converting a decimal value into characters in a 
report line involve three major steps. First, the temporary string 
that existed in step 7 is converted into a "report string", which is 
the string of characters that are placed into the report line. 
Second, the position of the report string in the report line is 
determined. And third, the report string is actually stored into the 
report line. Keep in mind that if any overstriking exists in the 
report string, the quantity of characters in the report string are 
larger than the quantity of columns’ that are to be occupied in the 
report line. Let "report_colunmns" stand for the quantity of columns 
that are to be occupied in the report line. 


Think of the report line as being filled with spaces before any report 
fields are stored into the report line. As each field is stored into 
the line, the previous contents of the column positions stored into 
are destroyed. 


If the report field definition included the CHARACTER keyword, then 
integer-17 specifies the maximum value of report_columns. Assuming 
this to be the case, the length of the temporary string is compared to 
report _columns. 5; 


a. If the quantity of columns represented by the temporary string is 
less than or equal to report_columns, then the report string's 
content and length are the same as for the temporary string. It 
is possible for the temporary string to be short enough so that 
not all of the column positions implied by report_columns are 
filled. 


b. If the quantity of columns represented by the temporary string is 
larger than report columns, every character in the report string 
is set to the # character. There are integer-17 such characters. 


If the report field definition omitted the CHARACTER keyword, then the 
content and length of the report string are set to the content and 
length of the temporary string. 


At this point, the content and length of the report string are 
established. The column positions that the report string is to occupy 
depend on the presence or omission of several keywords in the report 
field definition. The complete details are given in the 
Report Field Def group in Section 5 and are not’ repeated here. In 
rereading that material, notice that the decimal value to report 
string conversion described in this section says nothing about the 
starting column number or limits on the width of the report field into 
which the report string is to be placed. 


Sometimes, when a decimal value is converted into a character string 
and placed into a report field, the report field is lengthened by one 
character. Usually, this gives the appearance in the printed output 
of an "extra" space added to the end of the field. This topic is 
covered in depth in the Report _Field Def group in Section 5. Within 
the following table, the report field values shown do not include the 
effect of this possibie field extension. 


Table 6-1. Examples of Decimal to Character Conversion 


Fixed Length 
} Local Variable 
: 
i} 


H Varying Length 
1 
! 
or Input Field ' 
t 
i] 
i 


Local Variable (varying) 
or Input Field (special) 


Decimal {|| seen e nnn nnn nnn ne eee ne en enn fn nn ne ne ee ee =e 
Value | Description Result Length Description Result Length 
4 
456.89 it -enart7) 456.896 7 | char(7) var 456.89 6 
456.89 Lt ehart6) 456.89 6 ' char(6) var 456.89 6 
456.89 ft cehar(5) 456.8 5 i char(5) var 456.8 5 
tt H 
5678 it 6ehar(7) 0.56786 8 | ¢char(7) var 0.5678 6 
5678 it ehar(6) 0.5678 6 ' ehar(6) var 0.5678 6 
5678 ft 060Cchar(5) 0.557 5 i char(5) var 0.567 5 
it ehar(5) OBBMB 5 ' char(5) var 0. 1 
i 
~ .567 i; ehar(7) -0.5674 7 i char(7) var -0.567 6 
- .567 1} char(6) -0.567 § ; char(6) var -0.567 6 
S567 i; ehar(5) -0.56 5 : ¢c@har(5) var -0.56 5 
tt I 
-23.56 i; char (7) -23.56% 7 | ¢char(7) var -23.56 6 
-23.56 i; char(6) -23.56 6 i echar(6) var -23.56 6 
-23.56 it ehar(5) -23.5 5 ' char(5) var -23.5 ‘5 
ie Report Field with 
it Report Field Without { the CHARACTER Option, 
14 the CHARACTER option i; All Starting In Same Column 
pp eee tere enn ee po ween nnn en ee 
Decimal f} Printed 
Value 1 Result Length Description Result Length 
asia ee 2? vt Siete ts in aes ee EES ES es Oe ee noes 
i 
456.89 it 456.89 6 char(7) 456.898 Yi 
456.89 it 456.89 6 char (6) 456.89 6 
456.89 it 456.89 6 echar(5) dt HE HE aE Ht 5 
1t 
5678 i 0.5678 6 char(7) 0.56786 7 
5678 it 0.5678 6 ehar(6) 0.5678 6 
5678. it 0.5678 6 char (5) dat dt dE 5 
il 
0 1 0 1 char(5) OBR 5 
ti 
- .567 it -0.567 6 char(7) -0.5674 7 
-.567 it -0.567 6 char (6) -0.567 6 
- 567 i -0.567 6 char(5) dt it a a Ht 5 
in | 
-23.56 it -23.56 6 char (7) -23.566 T 
~23.56 it -23.56 6 char (5) Hit a Ht Ht 5 
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Character to Decimal 


This discussion applies to those situations wherein the source is a 
Character string and the target is a decimal value. 


The character string can be created in many ways, for example: 


e A parameter 
e Local variable declared with CHARACTER keyword 
& Input field declared with CHARACTER keyword 


@ Conversion of the result of arithmetic operations to a character 
string 


e Output of a TRANSFORM table lookup 
* Result of invoking certain builtin functions (e.g., 
%substr (%yyddd,3,3), which is the number of the day in the year) 


There are several possibilities for the target, for example: 


cd Local variable declared with DECIMAL keyword 


Input field declared with DECIMAL keyword. The input field must 
be "held" by a HOLD statement. (See "Execute Phase" group in 
Section 5.) 


® Input value to a SET or TRANSFORM table lookup 


® An arithmetic operand in an expression 


However it is created, the character string has a value and a length. It 
may contain leading or trailing spaces, which are ignored. (This is an PL/I 
characteristic.) If the character string to be converted contains letters, an 
error occurs. However it is going to be used, the decimal value is a 
float decimal(20) value. The following paragraphs specify the conversion rules, 
including the determination of what constitutes a valid character string. 


If any of the following rules are violated, the conversion fails. The 
error may be detected by the MRPG or the PL/I compiler, in which case an error 
message is displayed. If the error is detected during the execution of the 
MRPG-OS, the conversion condition is signalled. 


Te The only valid characters are the 10 decimal digits, the space, the 
period (decimal point), the plus, and the minus. 

a. No more than one period may be present. 

3. No more than one arithmetic sign character (plus, minus) may be 
present. If one is present, it must immediately precede the leftmost 
digit. 


4, The only non-digit character permitted between the leftmost digit and 
the rightmost digit is the period. 


i The only non-digit character permitted between an arithmetic sign and 
the leftmost digit is a period. 


6. If a minus sign is present, it must be followed by at least one digit. 
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The conversion is made in accordance with the following rules. Some 
examples follow these rules. 


Ns A series of consecutive spaces at the beginning of the string is 
ignored. 

Qs A series of consecutive spaces at the end of the string is ignored. 

3. If a period is present and there is at least one non-zero digit to the 


left of the period, a series of zeros preceding the leftmost non-zero 
digit is ignored. 


4, If a period is present and there are no non-zero digits to the left of 
the period, a series of consecutive zeros to the left of the period is 
ignored. . 

oe If a period is present and there is at least one non-zero digit to the 


right of the period, a series of consecutive zeros to the right of the 
rightmost non-zero digit is ignored. 


6. If a period is present and there are no non-zero digits to the right 
of the period, a series of consecutive zeros to the right of the 
period is ignored. 


7. If none of the digits 1 through 9 are present, the target value is 
zero. There is no distinction between a positive zero and a negative 
zero. The positive representation is used. 


8. If no period is present, the decimal point is considered to 
immediately follow the rightmost digit. 


9. If a minus character is present, the target value is negative. If no 
minus character is present, the target value is positive. 


10, If the quantity of significant (non-ignored) digits is greater than 
20, only the most significant 20 are retained. Rounding occurs. 
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Table 6-2. Examples of Character String to Decimal Value Conversion 


Source Target Value (as it is 


Source String Length printed in a report field) 
Bbb123.5666B 12 123.56 
0001.2345000 12 1.2345 
000.12300 9 0.123 
1234 .0000 9 1234 
1234. 5 1234 
1234 4 1234 
-900 .0000 9 

-0001.2 7 Sf 
BBB 3 0 
66-066 6 0 
-1234567890123456 .7890987 25 ~1234567890123456.7891 
7890123456789012345678901 25 7890123456789012345700000 
Bbb-bb 5 error 

5x6 3 error 

5.6. 4 error 

~54+6 4 error 

000+5.6 7 error 

566 3 error 

-65.6 5 error 

12,345.67 9 error 


Decimal to Boolean 


If the decimal value is zero, the boolean value is set to false. 
Otherwise, the boolean value is set to true. 


Boolean to Decimal 


If the boolean value is true, the decimal value is set to 1. If the 
boolean value is false, the decimal value is set to 0. 


Character to Boolean 


The boolean value is set to false unless all of the following constraints 
are satisfied, in which case the boolean value is set to true. 


1. The four-letter English word "true" appears in the character string. 
The letters of the word "true" may be in any combination of uppercase 
and lowercase characters. For example, "TRUE", "TruE", and "tRUe" are 
all valid representations of the word "true". 


2x The only other character that is in the string is the space character. 


It is valid for spaces to precede, follow or both precede and follow 
the "true" word. 
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3% The four letters of the word "true" must be contiguous. 


Boolean to Character 


If the boolean value is true, then the character value is set to the four 
characters "true" and, if the length is variable, the current length is set to 
four. If the boolean value is false, then the character value is set to the 
five characters "false" and, if the length is variable, the current length is 
set to five. In both the true and false cases, if the target string is 
non=-variable and is longer than the four or five characters needed to hold the 
"true" or "false" characters, trailing spaces are supplied to fill out the 
target string. 


If the "true" or the "false" string is too long to fit into the target, the 
"true" or "false" string is truncated. 


Decimal to Picture 


The rules are described in the PL/I manuals. 


Character to Picture 


If the character string has a numerical value, the source value is 
converted to a decimal value which is then converted into the picture value 
according to the rules described in the PL/I manuals. 


If the value of the character string is not a number, an error occurs. 
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SECTION 7 


EXPRESSIONS 


The main purpose of this section is to integrate the five groups of 
Section 5 that specify the MRPG's expression capability. These five groups are: 


® Full Expr 

& Relationship Test 
sd Char Expr 

® Char Ref 

e Arith_ Expr 


The next portion of this section identifies the types of expressions. 
Then, the interactions between the above five groups is examined. Following 
that, the individual operators that may be used to combine expressions are 
discussed, along with their precedence rules. Finally, some rules governing the 
allowable combinations of operators and expressions are described. 


TYPES OF EXPRESSIONS 


An expression is one of the following: 
literal 
variable reference 


builtin function reference 
operator expression 


Each of the above consists of a few or several items. The grouping of the 
items is listed below. The specifications for the items are in Section 5. 


A literal may be an integer, a number, or a character string. 


A variable reference may be a parameter name, an input field name, or a 
local variable. 
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The set of builtin function reference possibilities is listed below. Many 
of these have arguments, which are not shown. Strictly speaking, the TRUE and 
FALSE keywords are not functions, because the keyword itself is the value. 
However, it is convenient to think of TRUE and FALSE as builtin functions. The 
column headings indicate which type of data value is returned. 


Arithmetic _ Boolean Character 
%PAGENUMBER IN TRANSFORM 
TRUE 4MMDDYY 
FALSE ZYYDDD 
ZLEVEL ZMONTH 
ADAY 
4HHMMSS 
ZSUBSTR 
ZREPEAT 


An operator expression performs some operation on its operand(s) and 
delivers the result as the value of the operator expression. An operator 
expression has one of the following forms: 

s prefix operator expression 
e expression infix _operator expression 
When used for arithmetic operations, prefix operators are also known as 


unary arithmetic operators, and infix operators are also known as_ binary 
arithmetic operators. 


A few examples of operator expressions are: 


Prefix Type Infix Type 

+523 count total + count 
-discount_rate output_file_name ji ".report" 
“color match weight <= 500 

-(gross salary * charity deduction) gross salary * charity deduction 


INTERACTIONS BETWEEN EXPRESSION-RELATED GROUPS 


The Full _Expr group's definition includes two other groups (Char Expr and 
Relationship Test). Examination of all five groups shows that a circular 
definition path exists. Figure 7-1 summarizes how the five groups are related. 


Each group definition includes options. In most groups, one or more of the 
options includes a reference to another group. For example, the FILE 
Char_Expr-2 in the Declare Input File group signifies that the keyword FILE must 
be followed by an expression that satisfies the specifications of the Char_Expr 
group. Choosing such an option means that some option is to be selected from 
the indicated subsidiary group. 


7 CC6S 


The majority of groups also includes options that do not reference other 
groups, e.g., the STREAM option in the Declare Input File group. This type of 
option is called a terminatin option, and when selected, a chain such as the 
following is terminated: ; 


select an option that involves another group 


and in it select an option that involves another group 
and in it select an option that involves another group 
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Terminating 
Full Expr options in 
Fuli &xpr 


Relationship Test 


Char_Expr 


Terminating 


Char_Ref options in 
Char Ref 


| Terminating 
Arith_Expr options in 
Arith Expr 


Figure 7-1. Expression-Related Groups Interdependence 


The Relationship Test group should really be thought of as part of the 
Full Expr group. The Relationship Test group appears in a_ separate block in 
Figure 7-1 and as a separate discussion in Section 5 as a convenience in showing 
the general format diagrams and to reduce the quantity of pages required to 
Specify one group. 


The Full Expr, Char Expr, Char_Ref, and Arith_Expr groups must be kept as 
separate groups. In addition to the group interconnections shown in Figure 7-1, 
each of these groups appears inthe definition of one or more of the other 
groups that make up the full MRPG language specification. 


Because of the circularity depicted in Figure 7-1, expressions may contain 
other expressions. Such nesting may be made to any depth. Parentheses may be 
required to write a complicated expression. The Arith_Expr group's definition 
formally provides the parentheses. 
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OPERATORS 


In the following text, the operators are grouped in classifications. The 
reader is referred to the appropriate Group in Section 5 for the meaning of each 
operator, the precedence among the operators is specified, and the result of 
using parentheses is specified. 


Operator Classification 


Operators are used with expressions either to obtain new data values or to 
make tests. Table 7-1 classifies all the operators. 


The term data value refers to an arithmetic, character, or boolean value. 
The value may or may not change while an MRPG-OS is being executed. The value 
may be in the input, the output, or be calculated by the program. Calculated 
values may not be visible to the program because they are temporary values used 
for further calculations or testing. 


The Quantity column in Table 7-1 specifies how many operators appear on 
each line of the table. Note tnat some rows of the table contain more than one 
line. The Operators column contains the ASCII character or characters that 
identify the operator. If the value in the Quantity column is greater than 1, 
Spaces separate the operators. The Position column specifies whether the 
operators are to be thought of as prefix operators for one expression or infix 
operators between two expressions. The Usage column states how the operators 
are used. 
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Table 7-1. Operator Classification 


Quantity Operators Position Usage 


LT LE EQ GE GT NE 
< <= = >= > “*e 


test -- value comparison 


BEGINS 
CONTAINS 
ENDS 

NOT BEGIN 

“* BEGIN 

NOT CONTAIN 
“ CONTAIN 
NOT END 

“ END 


infix test -- string matching 


— a ek es et es en 


BEGINS WORD 

CONTAINS WORD 

ENDS WORD 

NOT BEGIN WORD 

“~ BEGIN WORD infix test -- word matching 
NOT CONTAIN WORD 

* CONTAIN WORD 

NOT END WORD 

“ END WORD 


test -- set membership 
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Operator Meanings 


The meaning of all operators is specified in Section 5. Each operator has 
a normal data type. Section 5 specifies the normal data type for each operator 
and describes what happens when other data types are encountered. The groups in 
which the operators are discussed in Section 5 are listed below. 


Operator Group 

+ - * / Arith_ Expr 
CONCATENATE 4 Char _Expr 

OR ; AND & NOT * Full Expr 

All other Relationship Test 


Operator Precedence 


Two operators are on the same expression level if they appear in the same 
expression and only matched pairs of parentheses appear between the two 
operators. When there is more than one operator at the same expression level, 
the operator with highest priority is evaluated first. The priority ranking is 
shown in Table 7-2. If there is more than one operator with the same priority, 
they are evaluated either from left to right or right to left within the 
expression, as specified in Table 7-2. 
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Table 7-2. Operator Precedence 


CENTS ERAS a BS PLS SI I I TT TE AE SIE SET EE RE OE SRP 


NOT * prefix + i right to left 
* 7 


at 
CONCATENATE | 
left to right 


LE <= 


Order Withi 
Srioeity 


highest 


GE >= GT > 


BEGINS CONTAINS ENDS 
NOT BEGIN NOT CONTAIN NOT END 

BEGINS WORD CONTAINS WORD ENDS WORD 
NOT BEGIN WORD NOT CONTAIN WORD NOT END WORD 


Se 


Parentheses 


Any expression may be enclosed in parentheses. These parentheses are in 
addition to any parentheses required by the general formats in Section 5. 
Providing extra parentheses can put operators at different expression levels, 
thereby changing the sequence in which the operators are evaluated. 


COMBINING DATA VALUE EXPRESSIONS 


Tables 7-3 and 7-4 summarize the ways in which expressions, operators, and 
parentheses may be combined to form a more complicated expression. Within these 
tables, the term "expr" denotes any expression that is to be combined with some 
other expression to yield a new data value. That "expr" may contain operators 
and parentheses. The character string +- refers to the prefix arithmetic 
operators. The string +-*/ refers to the infix arithmetic operators. The NOT 
refers to the negation operator of the Full_Expr group. In the Location column, 
"first" means that the element being considered is the first element in the 
combined expression that is being written. The term "inside" means that the 
element is neither the first nor the last one. The term "last" means that the 
element is the last element in the new, combined expression. 
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Table 7-3. Combining Arithmetic Expressions 


Valid Elements Under Consideration Valid 
Preceding Following 


Elements The Elements Elements 


PT) CRRA ERIS 
none 


ee 


oe ae eee 
face fine [fe 
fmm [eee 
fr fom |e 
Cs oe a oe 


Do a a es 
: oe oe 
first | 


expr ) last ) 


7-9 CC69 


Table 7-4. Combining Logical Fxpressions 


Valid Elements Under Consideration Valid 
Preceding Following 


Elements The Elements Elements 


none first. por expr ( 
a 


a CO 


none 
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SECTION 8 


PROGRAM PREPARATION, GENERATION, AND EXECUTION 


PROGRAM PREPARATION 


The program preparation portion of this section offers some thoughts on 
functional requirements of the MRPG program, presents some suggestions on the 
program's design, and briefly mentions how to enter the source program and save 
it for use by the MRPG. 


Initial Decisions 


Several decisions should be made before beginning the detailed design of 
the program. The following topics may have significant impact on the general 
approach used. 


INVOCATION METHOD 


If the object program is invoked from Multics command level, or via an 
attachment to the report I/O module, or both ways at different times, then 
portions of the program as well as documentation for users of the program are 
affected. 


When the MRPG-OS is invoked from command level, either the FILE or the 
ATTACH option must be selected in the Declare Input_File group. Users who 
invoke the MRPG-OS must know the pathname of the MRPG-OS. 


If the MRPG-OS is invoked via an attachment to the report  I/0 module, the 
FILE and ATTACH options may be omitted. If one is present, it is ignored. (One 
of them may be present if the MRPG-OS is to be invoked as a command at some 
other time.) The SPECIAL keyword must be included in the definition of every 
input field. Users of the MRPG-OS may or may not need to know where the MRPG-OS 
is located in the virtual memory. The need to know the MRPG-OS pathname is 
dependent on the program that invokes the MRPG-OS. 


LOCATION OF INPUT DATA 


If the input data is in a segment in the virtual memory, then the pathname 
of that segment may need to be included in the program. However, it is possible 
to obtain the input from different segments at different times by using the 
value of one or more parameters in constructing the segment's pathname. 


If the I/O attachment method is used, it is possible that the input data 
may never exist as a segment in the virtual memory. 
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LOCATION OF OUTPUT REPORTS 


The program specifies where each report is sent. The output may be written 
to a segment using the FILE and SWITCH options in the Report Control group. If 
no FILE or SWITCH options are specified, or if none of those specified are 
selected by an associated IF test, or if the selected SWITCH option specified 
the user_output switch, the report is sent to the user output I/O switch. In 
this case, the lines of the report usually appear on the user's terminal as the 
lines are produced, with no copy of the report available for reprinting at a 
later time. Actions external to the MRPG-OS can divert user output traffic to a 
segment, (e.g., the file output command can do this). 


OUTPUT PRINTING METHOD 


If a hardcopy version of a report is wanted, several choices exist. Simple 
printing on a terminal may be adequate, but if the lines in the report are 
longer than the width of the available terminal, it may be necessary to use a 
line printer of adequate width. The line printer may be located at the central 
computer site or be remote with the data transmitted over a data communication 
line. High quality printing may be obtained by using a special ribbon in a line 
printer, a special ribbon ina terminal, or via COM (computer output on 
microfilm). The particular printing method used may affect the page layout 
information supplied in the Report Control group and possibly the PAUSE or 0 
Options in the Line group. Section 9 provides additional details on printing 
reports. 


PARAMETERS 


If the program is to utilize parameters, then a decision as to their 
acceptable values, any constraints on their input sequence, and the use of 
keywords must be made. These decisions are implemented with the source program 
text in the Declare Parameters group and in whichever groups use the values that 
are supplied at execution time for the parameters. 


VALIDITY CHECKING 


It is possible to provide extensive validity checking on parameters and 
input fields. The thoroughness desired must be decided on, as well as the 
details of each individual check. In general, making a validity check is 
inexpensive. 


Detailed Program Design 


The next few paragraphs offer some thoughts that should be considered at 
the time that the program structure is being defined. 
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MULTIPLE USE OF INPUT FILE 


If a file is used as input to several MRPG programs, then it is recommended 
that a complete description of the file be worked out and saved in the virtual 
memory. When a new program is written that uses this input file, the file's 
description can be copied from the saved file into the proper place in the 
source program. 


INPUT FILE STRUCTURE - 


If a complete file description exists for the input file and is stored in 
the system, that file description can be copied into the source program. 
Otherwise, a new file description must be prepared. Unused fields need not be 
described. They can be skipped over with the FILL option of the 
Declare Input File group or the POSITION option of the Input Field Def group. 
Or, an artificial padding field whose size equals the sum of the sizes of the 
contiguous fields to be skipped may be specified. Characters at the end of 
records ina stream file are skipped over if these character positions are 
omitted from the file's declaration. (See Figure 2-1.) 


OUTPUT REPORT LAYOUT 


When specifying the positioning of data in an output line, it may be 
helpful to think of a line as initially consisting of all spaces. Data placed 
into the line merely overlays what was already there. If some data is specified 
as occupying column positions also occupied by some other data, the final data 
is the data that was specified last. That is, a line is built up in the 
sequence in which the specifications of the data items occur in the source 
program. After all fields have been placed in the line, trailing spaces are 
removed. 


Typing in the Source Program 


The source program is physically entered into the computer system with a 
text editor. The mechanics of editing and correcting the characters’ that 
comprise the source program are completely determined by the particular text 
editor used. 


Saving the Source Program 


The source program must be placed in a segment in the virtual memory in 
order for the MRPG to generate an object program. Therefore, after the source 
program is built with the aid of a text editor, the source program must be 
written into a segment. 


The segment must be given a two-component name, the second of which is the 
five-character .mrpg suffix. The first component must start with a_ letter. 
Only the 52 letters, the 10 digits, and the underscore characters may be used to 
form the first component. This is a PL/I characteristic. 


The maximum length of the segment's name, including the .mrpg suffix, is 32 
characters. This is a Multics characteristic. 
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GENERATING AN OBJECT PROGRAM 


The actions involved in converting an MRPG- source program into a standard 
Multics executable object segment are described below. 


Invoking the MRPG 


The MRPG is invoked by issuing the mrpg command from Multics command level. 
The mrpg text follows the command writeup format used in the MPM Commands. 
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mrpg mrpg 


Name: mrpg 


The mrpg command invokes the MRPG to translate a segment containing MRPG 
source statements into a segment containing PL/I source statements. Then the 
PL/I compiler is automatically invoked to translate the segment containing PL/I 
source statements into a_ standard Multics object segment. PL/I control 
arguments may be supplied with the mrpg command. These PL/I control arguments 
are passed on by the MRPG to the PL/I compiler. The results are placed in the 
user's working directory. The mrpg command cannot be called recursively. For 
information on PL/I, refer to the PL/I manuals. 


Usage 
mrpg path { PL/I control args } 


where: 


Ts path 
is the pathname of an MRPG source segment that is to be translated 
by the MRPG. If path does not have a suffix of mrpg, then one is 
assumed. However, the suffix mrpg must be the last component of the 
name of the source segment. 


24 PL/I control arguments (optional) 
can be chosen from the list of control arguments for the pl1 command 
in the MPM Commands. 


No checking is done by the MRPG on the supplied PL/I control 
arguments. 


Notes 


The PL/I source segment produced by the MRPG is placed in the user's 
working directory. This segment's name is the same as the name of the segment 
Supplied as input to the MRPG except that the mrpg suffix is replaced with a pll 
suffix. 


The PL/I source segment is not deleted by the MRPG. 


The object segment produced by the PL/I compiler is placed in the user's 
working directory. This segment's name is the same as the name of the original 
source segment with the mrpg suffix omitted. 
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mrpg mrps 


Execution of the MRPG- generation and the PL/I compilation may be 
interrupted at any time by pressing the Quit/Interrupt/Break switch on the 
terminal. Typing "start" will cause execution to resume at the interrupted 
point. The program interrupt feature is not supported. 


Error Diagnostics 


The MRPG diagnoses and issues error messages via the error_output I/0 
Switch using the three levels of severity: 


1 Warning only. The term *WARN identifies this class of error messages. 
The generation of PL/I source statements proceeds without ill effect. 
The assumptions made by the MRPG are reported. 


2 Correctable error. The term ERROR identifies this class of error 
messages. The MRPG makes the best attempt that it can to rectify the 
Situation and continues. The correction made is reported. In many 
eases, the correction made is the same change that the programmer 
would make. In any event, generation of PL/I source’ statements 
continues so that as many errors as possible can be reported during 
each pass through the MRPG source. 


3 Uncorrectable error. The term FATAL identifies this class of error 
messages. The MRPG cannot determine what might be a_ reasonable 
correction and skips forward in the source statements to a point at 
which it may be possible to again generate meaningful PL/I source 
statements. The resulting PL/I source program is not correct. 


After the MRPG has completed processing its input, the maximum severity 
level error detected is tested. If the maximum severity level is 3, control 
returns to the Multics command processor. If the maximum severity level is 
none, 7, or 2, the PL/I compiler is invoked. 


Error messages may be produced by the PL/I compiler. Their severity levels 
are discussed in the MPM Commands. 


Because the MRPG allows numbers tc be used as character strings and allows 
a character string whose content is a number to be used in an arithmetic value, 
some conversions between different PL/I data types occurs. Such conversions do 
not result in any warning messages from the MRPG, but may result in warning 
messages from the PL/I compiler. These PL/I warnings should be ignored. They 
can be suppressed by supplying the control argument -severity1 when the MRPG is 
invoked. That control argument is passed to the PL/I compiler and inhibits all 
error messages whose severity level is 1. This is a PL/I characteristic. 
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mrpg mrpg 


If PL/I error messages with severity 2 or higher persist after the source 
program is changed to eliminate all MRPG error messages, contact the local 
Honeywell representative for assistance. 


The MRPG does not support the severity active function. 


Listings 


The MRPG does not produce a listing, but if desired, a PL/I listing can be 
obtained. - How to do this and how to interpret the PL/I listing are discussed in 
the MPM Commands and the PL/I manuals. 


PROGRAM EXECUTION 


The MRPG-OS is invoked from command level by supplying a normal Multics 
command line: 


name of the MRPG-OS {parameters needed by the MRPG-OS} 


Each parameter delimited by white space or the end of the command (i.e., 
the last parameter may be followed by white space, a newline, or a semicolon). 


If no parameters are required, the command line consists of just the name 
of the MRPG-OS. 


When the MRPG-OS completes execution, control is returned to the command 
processor. 


As with any Multics command, program execution may be interrupted by 
pressing the Quit/Interrupt/Break switch on the terminal. Typing "start" causes 
execution of the MRPG-~OS to be resumed at the point at which the interruption 
took place. The program interrupt feature is not supported. 


If the PL/I -table control argument is supplied with the mrpg command, the 
probe debugging command may be useful should errors occur’ during program 
execution. 
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PHYSICALLY PRINTING A REPORT 


Triggering the printing of a report that has been written to a segment is 
Straightforward. However, there are a few potential complications in obtaining 
the desired set of lines ona physical sheet of paper. Decisions must be made 
when the MRPG source program is written, when the MRPG-OS is invoked, and when 
the actual printout is triggered. These decisions interact, sometimes in 
non-obvious ways. This section is intended to assist the user in making best 
use of the available flexibility with a minimum number of MRPG/DPRINT 
experiments. 


POTENTIAL PROBLEM AREAS 


The following terminology is helpful in explaining the problems and in 
suggesting solutions. 


Logical line 
A set of fields associated with the LINE keyword of the Line group. 


Physical line 
A spatial area on the output media. For the line printers used at 
the central site, this area is usually 1/6 of an inch high by 136 
columns wide. Sometimes, it is 1/8 of an inch high. 


Logical page 
That collection of logical lines that the user wants to have printed 
as a unit, with no page heading and/or page footing lines except at 
the start and end of the unit. 


Physical page 
A piece of paper, a portion of a microfiche, or a display screen on 
a terminal. For the line printers used at the central site, the 
piece of paper is usually 11 inches high by 14-7/8 inches wide. 
Other physical page sizes may also be used. 


A logical page may be shorter, equal in length to, or longer than the 
physical page. The programmer's challenge is to specify the source program 
Statements and dprint control arguments to produce a report whose layout is what 
the report's readers want. 
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Logical Versus Physical Lines 


Usually, one logical line maps into one and only one physical line. 
However, it is possible, and at times may be desirable, for one logical line to 
cecupy more than one physical line. 


Suppose the output device is the central site line printer whose default 
column width is 136 columns. Logical lines that require 137, 138, 139, ..., 272 
columns occupy two physical lines. Note that it is the quantity of columns 
required that is crucial. The character count may exceed 136 and still occupy 
only one physical line if sufficient overstriking occurs. This might be done to 
underline a heading. Each backspace and overstrike character consume zero 
column positions. Using a carriage return (015 octal) or many backspaces and 
the same text again to produce a darker line can yield a logical line that is 
much longer than 136 characters but that occupies only one physical line. 


The current central site line printers have 136 printing positions, and 136 
is the default line length value for the dprint command. The effective line 
length is shortened when the dprint -indent control argument is used. The 
dprint -line length control argument can also change the effective line length. 
Thus, using the -indent and/or -line length control arguments could decrease the - 
effective physical length of a line such that a logical line now consumes more 
than one physical line. The "line overflow situation" is referred to in a later 
paragraph titled "Interaction Example". 


Assume that the top portion of a physical page consists of: 


Physical 
Line Numbers Content 
1-3 Three blank lines, for a top of page margin. 
45 Two page heading lines. 
6-8 Three blank lines for a separation between the 


page heading and the text. 


9 The first detail line. 


If, as is usually the case, lines 1-3 are skipped because a newpage 
character is sent to the printer and the Vertical Format Control (VFC) 
information and initial paper positioning is set up to cause skipping to line 4, 
then one could say that the first page heading line consumed four physical 
lines. 


Further assume that the skipping of physical lines 6-8 is accomplisned by 
specifying the MINLINE option with a value of 5 in the Report_Control group. In 
a sense, it can be said that the first detail logical line consumed four 
physical lines. 


The same kind of physical line skipping may be done by specifying 
integer-14 or integer-15 in the Line group. These integers specify the absolute 
or relative line number that the defined line falls on. If the value of 
integer-14 is more than one higher than the line number for the previous line, 
or if integer-15 is greater than one, the logical line consumes more than one 
physical line. 
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Page Height 


The choice of control arguments for the dprint command can affect the 
height of the page. The essence of these effects are discussed in the next few 
paragraphs. However, the writeup of the dprint command in the MPM Commands is 
the authoritative source of information and should be read to obtain the exact 
details. 


Assume the central site line printer is set to six lines per inch and the 
paper is fan-folded every 11 inches. The number of lines that can be printed on 
a physical page depends on the information that has been loaded into the 
printer's VFC unit. If the standard system printer control values are not 
modified by the site and a segment that contains no newpage characters is 
printed with the dprint command but no control arguments, 60 lines are printed 
on each sheet of paper. The first one-half inch and the last one-half inch of 
paper are skipped because of the VFC data. However, printing that same segment 
with the -no_endpage control argument yields 63 lines on the first sheet and 66 
lines on succeeding sheets. 


The -page length dprint control argument can change the effective page size 
from the VFC viewpoint into almost any quantity of lines per page. 


The PAGELENGTH option of the Report Control group can change the logical 
page size from the MRPG-OS viewpoint. If the PAGELENGTH value is set to 4, the 
report is sent to a segment, and the report is dprinted without control 
arguments, then only one line of the report is printed on each physical page. 


INTERACTION EXAMPLE 


To clarify the interrelationship between the MRPG Report Control values and 
the dprint control arguments, consider the following example. Use the central 
Site line printer. Set it to six lines per inch. Use blank paper that is 
fan-folded at eleven inch intervals. In order to save paper, since many copies 
of the report are needed, the report is photoreduced to 60% of its printed size 
before reproducing the report on eleven inch high paper. Thus, six lines per 
inch from the line printer are ten lines per inch in the reproduced report. 
With one inch top and bottom margins for the reproduced report, one eleven inch 
reproduced sheet has 90 report lines and represents 110 physical lines. Assume 
that two page heading lines and two page footing lines are wanted. Also assume 
that the "line overflow situation" discussed earlier in this section does not 
occur. 


In the horizontal center of Figure 9-1, the numbers from 1 to 138 represent 
the physical line numbers. The XXXX¥¥ lines in that column of numbers represent 
the perforations in the paper. 
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Figure 9-1. Physical Layout of a Long Logical Page 
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The crucial items for producing and printing a report with the vertical 
layout shown in Figure 9-1 are: 


@ In the MRPG source program 


define 1 report your_report name on “your_output" 
pagelength 110 
maxline 98 /* Last line number that detail lines can fall on. #*#/ 


2 pagehead, 
3 line 11 ... /* Define first page heading line. */ 
3 line ... /* Define last page heading line. */ 


e 


2 pagefoot, 
3 line 99 ... /* Define first page footing line.. */ 
3 line ... /* Define second (and last) page footing line. */ 


@ In the dprint command line 


dprint your_output -page length 110 


LABEL LINES 


Continue to use Figure 9-1 as an example. The dprint command has a few 
control arguments that can cause "label lines" to be printed. If "-top label 
string top" is specified with the dprint command, "string top" is printed at the 
beginning of line 2 while specifying "-bottom label string 
"string bottom" on line 109. Using "-label string both" prints "string both" on 
lines 2 and 109. The printing of these label lines does not affect the printing 
or spacing of any other lines. 


g hattomit nrints 
Hotrom label strin & DOLtom prints 


Figure 9-1 presumed that the segment being printed had an Access Isolation 
Mechanism (AIM) access class name with a null value. This is the most common 
Situation. Unless specific AIM actions are taken, processes and segments are at 
the AIM system_low level. The system default value for the system_low access 
class name is null. If the AIM is used to give a segment an access class name 
that is not null, e.g., COMPANY PROPRIETARY, then that access class name appears 
on lines 2 and 109 if the dprint label-type control arguments specify printing 
the access label. 


9-5 CCc69 


APPENDIX A 


THE RESERVED KEYWORDS 


The table below shows every character string that is reserved as a keyword 
within the MRPG language including keywords that have short forms where 
applicable. In addition, all character strings for names that start with one 
uppercase letter followed by one underscore character are reserved for use as 
names in the generated PL/I source program. 


KEYWORDS KEYWORDS KEYWORDS 
Short Short Short 

Long Form Form Long Form Form Long Form Form 
*DAY DESCENDING DESC ON 
ZHHMMSS DETAIL OPTIONAL 
@LEVEL DETAILFOOT OR 
%MMDDYY DETAILHEAD PAGEFOOT 
ZMONTH DUPLICATE DUPL PAGEHEAD 
4PAGENUMBER ELSE PAGELENGTH PGL 
REPEAT END PAGEWIDTH PGW 
ZSUBSTR ENDS PARAMETER PARM 
*YYDDD EQ = PAUSE 
ALIGN ALSE PICTURE PIG 
AND & FI POSITION 
ASCENDING ASC FILE PRINT 

ATTACH GE => RECORD 

BEGIN GT > REPORT 

BEGINS HOLD REPORTFOOT 
BOOLEAN BOOL IF REPORTHEAD 

BREAK IN RIGHT 

BSP INPUT SET 

CENTER KEY SORT 

CHARACTER CHAR LEFT SPECIAL 

COLUMN COL LET STREAM 
CONCATENATE {1 LE <= SWITCH 

CONTAIN LINE TABLE 

CONTAINS LT < THEN 

DECIMAL DEC MAXLINE MAXL TRANSFORM 

DECLARE DCL MINLINE MINL TRUE 

DEFAULT NE os VARYING VAR 
DEFINE NO WORD 

DELIMITED NOT = 
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APPENDIX B 


ADDITIONAL SAMPLE PROGRAMS 


This appendix contains several examples of MRPG programs. These programs 
illustrate specific points within the MRPG. In the real world, it would not be 
appropriate to write such simple MRPG programs. However, these examples are 
kept simple so that the primary feature in each example is not obscured. 


Each example shows the input data used, the MRPG source program, and the 
output report(s) produced. Some examples also include a discussion. The examples 
include line numbers, to facilitate the discussion of specific points of interest. 
These line numbers were added to the input, program, or reports after the object. 
programs executed. In those examples where the report(s) is written to a segment, 
the last character in the report segment is a newpage character (octal 014) 
which is printed in this appendix as the \014 string. There may also be newpage 
characters before the last line of the report. If so, they are shown as \014 
strings. In general, reports in the examples are written to segments in the 
user's working directory. The pathname shown for the reports starts with [wd] 
which represents the Multics active function that returns the pathname of the 
working directory. Thus, [wd]>abed refers to the segment named abcd in the 
working directory. 


The outputs shown with examples are a copy of the actual reports produced 
by these sample programs when run on Multics. 


The input data files and the MRPG source programs are supplied to customers 
as part of the MRPG software. Users may run these programs to verify that the 
MRPG produces the reports shown here. To do so, the user's working directory 
should be one in which the user can create and write segments. Type either of 
the following two lines: 


archive xf >unbundled>mrpg examples run_mrpg examples.ec 
ac xf >unb>mrpg examples run_mrpg examples.ec 


The exec_com is extracted from the archive and written into the working 
directory. Then type either of the following two lines: 


exec com run_mrpg examples 
ec run_mrpg examples 


A list of the examples contained in the archive is displayed, along with a 
brief explanation of how to use the exec_com. Respond to the questions. fhe 
example selected is extracted from the archive, the PL/I program(s) is generated 
and compiled, and then the newly-compiled object program(s) is executed. 


All of the segments extracted from the archive are established in the working 
directory, along with the generated PL/I segments, the compiied object segments, 
and those reports that are written into segments. The user is cautioned that 
extracting segments from the archive and running the examples create segments in 
the working directory. If there is any conflict with the names of already-existing 
segments, the user can create a new subdirectory, change to that new directory, 
and then extract the exec_com and run the examples. 


11/82 B-1 CC69-00A 


TWO REPORTS 
The Input ( two_reports.mrpg.input in the archive ) 


Line 
No. The Actual Input Lines 


1 line 1 of two_reports.mrpg.input 
2 line 2 of two_reports.mrpg.input 


The Source Program ( two_reports.mrpg in the archive ) 


This program produces the two reports printed after this program from the 
input file shown above. This is a trivial example to show the essential steps 
required to produce more than one report. (Line 6 below, indicates "3 line 4", 
The output file places the data on the first line since MRPG assumes a dprint of 
the file where the data then appears on line 4.) 


Line 
No. The Actual Source Program Lines 
1 /* Simple program to produce two trivial reports. #*/ 
2 del 1 input stream file "two_reports.mrpg.input", 
3 2 the data char(32); 
4 define 1 report report_one pagelength 12 
5 on file "two _reports.file one.report", 
6 2 pagehead, 3 line 4, 4 "THIS REPORT PRODUCED ON " {|| %mmddyy, 3 line, 
7 2 detail detail one, , 
8 3 line +2, 4 "Line A, report one. The input is ", 4 the data, 
9 3 line, 4 "Line B, report one. The input is ", 4 the data; 
10 define 1 report report_two pagelength 12 
11 on file "two _reports.file two.report", 
12 2 pagehead, 3 line 4, 4 "THIS REPORT PRODUCED ON " || %mmddyy, 3 line, 
13 2 detail detail two, 
14 3 line +2, 4 "Report two, line A. The input is ", 4 the data, 
15 3 line, 4 "Report two, line B. The input is ", 4 the data; 
16 begin() print report_one; print report_two; 
17 end; 
The Output 
The report written into [wd]>two_reports.file one.report is: 
Line 
No. The Actual Output Lines 
1 THIS REPORT PRODUCED ON 02/17/78 
2 
3 Line A, report one. The input is line 1 of two_reports.mrpg.input 
4 Line B, report one. The input is line 1 of two_reports.mrpg.input 
5 
6 Line A, report one. The input is line 2 of two_reports.mrpg.input 
7 Line B, report one. The input is line 2 of two_reports.mrpg.input 
8 \014 
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The report written into [wd]>two reports.file two.report is: 


Line 
No. The Actual Output Lines 


-_— ow oe sen ew eZ Oe ww ZT BT SO ZO ee ST BODE ewree2 Zee ee SB ewes BZeseZ we TZ OeZ e222 22 Be wT eT OT ee wZeew ewe wee eee 


THIS REPORT PRODUCED ON 02/17/78 


Report two, line A. The input is line 1 of two _reports.mrpg.input 
Report two, line B. The input is line 1 of two _reports.mrpg.input 


NOU OP = 


Report two, line A. The input is line 2 of two _reports.mrpg.input 
Report two, line B. The input is line 2 of two reports.mrpg.input 
\O14 a 
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HOLD AND SORT 


The Input ( hold_and_sort.mrpg.input in the archive ) 


No. The Actual Input Lines 


1 
rT 
1 
pigeon 2 
2 


1 
2 
3 goose 
4 
5 robin 


The Source Program ( hold _ and sort.mrpg in the archive ) 


This MRPG program reads and holds’ the input file, sorts the held file, 


then uses the held "sorted file" to produce the report. 


and 


~Smmddyy, 3 line, 


Line 
No. The Actual Source Program Lines 
1 /* Simple example illustrating hold and sort #*/ 
2 del 1 input stream file "hold _and_sort.mrpg.input", 
3 2 kind char(6), 2 in_ stock dec(3), 2 price dec(3); 
4 del accum_ value dec; 
5 define 1 report bird value pagelength 14 on file "hold _and_sort.report", 
6 2 pagehead, 3 line 4, 4 "THIS REPORT PRODUCED ON " 
7 3 line, 4 "Kind In Stock Price Accum Value", 
8 3: dine... "eesece) Wcesteaee wees Jacaseacsues we 
9 2 detail the data, 3 line, 
10 4 kind char(6) left, 4 in_stock char(10) right, 
11 4 price char(7) right, 4 accum_value char(13) right 
12 let (accum_value := accum_value + in_stock * price;); 
13 begin () hold input; 
14 begin (accum_value := 0;) sort in_stock desc, price asc; 
15 print bird value; end; 


The Output ( [wd]>hold_and_sort.report ) 


Line 
No. The Actual Output Lines 


1 THIS REPORT PRODUCED ON 02/16/78 
2 
3 Kind In Stock Price Accum Value 
eee cehese ease, eueenees -¢ i as eece as ceca ares 
5 
6 finch 4 2 8 
7 pigeon 2 4 16 
8 robin 2 10 36 
9 goose 1 3 39 
10 duck 1 4 43 
11 \014 
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BEGIN HOLD ASSIGN 
The Input ( begin 9 hold _assign.mrpg.input in the archive ) 


Line 
No. The Actual Input Lines 


1 11121314 
2 21222324 


The Source Program ( begin 8 hold_assign.mrpg in the archive ) 


This example illustrates the effects of placing assignment statements at 
various places within the source program. In some cases, the value resulting 
from the execution of an assignment statement is available during the current 
phase and also during later phases. In some cases, the result is available 
during only the current phase. In other cases, the result is not available at 
all. A discussion of specific cases follows the source program and the output 
reports. 


This example includes one input file, two MRPG source programs, and four 
reports. The names of these seven segmentS are shown in the comments at the 
beginning of the MRPG source program. For brevity, let B 1 HA denote the 
begin_1_ hold assign version and let B 8 HA denote the begin_ 8 hold assign 
version. Because the two source programs are almost identical, only one of them 
is included here. The major difference is that in B 8 HA a_ hold statement 
occurs in all eight phases, while in B_1_HA a hold statement occurs in only the 
first phase. The only other difference is in the segment names for the output 
reports, with " 1_" used for the B_1_HA reports and " 8 " used for the B_ 8 HA 
reports. ane: ; 


Line 
No. The Actual Source Program Lines 


1 /* begin _1_hold_assign.mrpg contains one hold statement, in phase one. 

2 * begin 8 hold assign.mrpg contains eight holds, one per phase. 

3 * These two MRPG programs illustrate the interactions between: 

4 * -- hold statements 

5 * -- assignment statements inside begin parentheses 

6 bl -- assignment statements in execute loop 

7 * For both programs, the input file is begin 9 hold _assign.mrpg.input 

8 * "in _" denotes input field; "lv_" denotes local variable. 

9 * Report names for _1_ version are  begin_1_hold_assign.(in lv).report 
10 * Report names for 8 version are begin 8 hold assign.(in lv).report 
11 #/ 

12 del 1 input stream file "begin 9 hold _assign.mrpg.input", 
13 2 in_1 dec(2), 2 in 2 dec(2), 2 in 3 dec(2), 2 in_4 dec(2); 
14 del lv_1 dec; del lv 2 dec; del lv 3 dec; del lv_4 dec; 

15 del phase dec; del input_ record number dec; 

16 define 1 report in report on file "begin 8_ hold _assign.in.report", 

17 2 detail in data line, 3 line, 

18 4 "Phase ", 4 phase, 4 "= Record ", 4 input_record_ number, 

19 ou int =", 4 int, yw in2 =", 4 in 2, 

20 qm in 3 =", 4 in 3, yo in 4 =", 4 in 4, 

21 3 line if (input_record number = 2); /* Blank line between phases. */ 
22 define 1 report lv report on file "begin 8 hold assign.lv.report", 

23 2 detail lv data line, 3 line, = 

24 4 "Phase ", 4 phase, i "- Record ", 4 input_record number, 

25 y" lv 1 =", 41vii, yn lv 2 =", 4 lv 2, 

26 yon iv 3. 2 = yu v4 =", 4 lv 4, 

e 3 line if (input_record number = 2); /* Blank~ line between phases. */ 
2 
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\. 


begin 


input __ 
print 


hold in_1, in_2, lv_1, lv_2; /* Same in _1_ and 8 versions. 


[® wee 


begin 


input_ 
print 
hold; 


Je te 


begin 


input _ 
print 
hold; 


J* cae 


begin 


input 
print 
hold; 


TR Soe 


begin 


input 
in 2 
lv 2 
print 
hold; 


or 


begin 


input_ 
print — 
hold; 


2=" PHASE 4 esac #/ 
(phase := 1; input_record number := 0; 
lv_1 := 85; lv.2 := 86; lv_3 := 87; lv_4 := 88;) 


record number := input_record number + 1; 
in report; print lv_report; 


-- PHASE 2 ----- */ 
(phase := phase + 1; input _record number := 0;) 


record number := input record number + 1; 

in report; print lv _report; 

/® This "hold;" statement is commented out in the 
ee ee version of this program, */ 


~- PHASE 3 ----- */ 
(phase := phas 1 
in_1 


input _record_ number := 0; 


record number := input record number + 1; 

in report; print lv _report; 

/*¥ This "hold;" statement is commented out in the 
* _1_ version of this program. */ 


-- PHASE 4 ----- */ 
(phase := phase + 1; input_record_ number := 0;) 


_record_ number := input_record number + 1; 


in report; print lv report; 
/*®* This "hold;" statement is commented out in the 
_1_ version of this program. */ 


~~ PHASE 5 ----- */ 
(phase := phase + 1; input_record_ number := 0;) 


_record number := input_record number + 1; 
:= in 2 + 1; in_4 := in_4 + 1; 
>= lv 2+ 13; lv 4 := lv 4+ 1; 


in report; print lv report; 
/* This “"hold;" statement is commented out in the 
* _1_ version of this program. */ 


-- PHASE 6 ----- */ 
(phase := phase + 1; input record number := 0;) 


record number := input_record number + 1; 

in report; print lv _report; 

/*® This "hold: " statement is commented out in the 
* _1_ version of this program. */ 
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88 /*® ----- PHASE 7 ----- */ 

89 begin (phase := phase + 1; input_record_ number := 0; 
90 in 1 := in_1 + 1; in_3 := in 3 + 1; 

91 lyk Ss 0 es Fy 38 te v3 13) 

92 

93 input_record number := input _record number + 1; 

94 in 1 := in_1 + 13 in_3 :=s in 3 + 1; 

95 WV se Avot ee as Ly 3.4 Lv 3 eo 15 

96 print in report; print lv _ report; 

97 hold; /* This "hold;" statement is commented out in the 
98 * 1_ version of this program. */ 

99 

100 

101 /* ----- PHASE 8 ----- 2 a 

102 begin (phase := phase + 1; input_record number := 0;) 
103 

104 input_record number := input_record number + 1; 

105 print in report; print lv_report; 

106 hold; /*® This "hold;" statement is commented out in the 
107 * 1_ version of this program. #*/ 
108 end; 

The Output 


The four reports are printed in this sequence: 


begin 8 hold assign.in.report 
begin _1_hold_ assign.in.report 
begin 8 hold assign.iv.report 
begin _1_hold_assign.lv.report 
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The Actual Output Lines For begin 8 hold assign.in.report 


10 


[o oes) AN fo, Koy) wu 


Record 
Record 


Record 


- Record 


Record 
Record 


Record 


- Record 


Phase 1 = Record 1 in 1 = 11 in 2 = 12 in 3: 3-13 in 4 = i4 
Phase 1 Record 2 int = 21 in 2 = 22 in 23 in 4 = 24 
Phase 2 =- Record 1 Tay, i> in 2 = 12 ini.3° = 23 in 4 = 24 
Phase 2 - Record 2 inl = 21 ino2.. S22 in 3 = 23 in 4 = 24 
Phase 3 - Record 1 inl = 11 in.2 = 12 in.3 = 24 in 4 = 24 
Phase 3 - Record 2 in 1 = 21 ince. “= 222 in 3 = 24 in 4 = 24 
Phase 4 - Record = 11 in.2 = 12 in.3 = 24 in 4 24 

- Record i = 22 in 3 = 24 

Record = 13 in 3 = 24 

Record = 23 in 3 = 24 

Record = 13 in 3 = 24 

Record = 23 in 3 = 24 

Record = 13 in 3 = 26 

Record = 23 in 3 = 27 

- Record = 13 Ln 3. = 27 

Record = 23 in 3 = 27 


assign.in.report 


Phase 1 = Record 1 in.1 = 11 in 2 = 12 in 3 = 13 in 4 = 14 
Phase 1 - Record 2 in.1 = 21 in 2 = 22 in 3 = 23 in 4 = 24 
Phase 2 - Record 1 ini = 11 in.2 = 12 in.3 = 23 in 4 = 24 
Phase 2 - Record 2 in.1 = 21 in 2 = 22 in 3 = 23 in 4 = 24 
Phase 3 = Record 1 in 1 = 11 in_2 = i2 in 3 = 24 in 4 = 24 
Phase 3 - Record 2 in 1 = 21 in 2 = 22 in 3 = 24 in 4 = 24 

4 Record = 12 in 3 =2 

se 4 Record = 22 in.3 = 24 


Line 


1 
- Record 2 lv 1 


No The Actual Output Lines For begin 8 hold assign.lv.report ° 
1 Phase 1 = Record 1 lv_1 = 85 lv 2 = 86 lv 3 = 87 lv 4 = 88 
2 Phase 1 - Record 2 lv_1 = 85 lv 2 = 86 lv 3 = 87 lv 4 = 88 
2 
4 Phase 2 = Record 1 lv_1 = 85 lv 2 = 86 LV 3s =: BT lv 4 = 88 
5 Phase 2 - Record 2 lv_i = 85 iv 2 ‘= :86 iv 3 = 87 iv 4¥ = 88 
6 
T Phase 3 - Record 1 Iv_1 = 85 lv 2 = 86 lv. 3. = 38 lv 4 = 88 
8 Phase 3 - Record 2 iy 1. 2485 iv 2 = 86 iv 3. 238 lv 4 = 88 
9 
10 Phase 4 - Record 1 Ev SA85 Tv 2 = 86 lv 3 = 88 lv 4 = 88 
11 Phase 4 - Record 2 lv 1 = 85 lv 2 = 86 lv 3 = 88 lv 4 = 88 
12 
13 Phase 5 -— Record 1 iv'1 = 85 LV? > S87 lv_ = 88 lv_ = 89 
14 Phase 5 = Record 2 lv_1 = 85 ive Ss BY lv 3 = 88 lv 4 = 90 
15 
16 Phase 6 - Record 1 EV 25255 iv? 2 87 lv_ 3 = 88 lv 4 = 90 
17 Phase 6 - Record 2 devel 230-85 Ly 2. -<5-837 lv 3 = 88 iv 4 2-90 
18 ; .. . 
19 Phase 7 - Record 1 lv_1 = 86 Lv2y 2°37 iv 3) = 90 lv 4 = 90 
20 Phase 7 - Record 2. 1v1 = 86 lv_2 = 87 lv 3 = 91 lv 4 = 90 
21 
22 Phase 8 = Record 1 IVT 86 lv. 2 = 87 lv 3 = 91 lv 4 = 90 
23 Phase 8 = Record 2 1 =S86 y.2° = 87 lv = 91 lv 4 = 90 
24 7 a . 
25 \0O14 
Line 
No. The Actual Output Lines For begin _1_ hold assign.1lv.report 
1 Phase 1 - Record 1 lv_1 = 85 (lv2 = 86 Iva? <2° 97 lv 4 = 88 
2 Phase 1 - Record 2 lv_1 = 85 lv 2 = 86 lv 3 = 87 lv 4 = 88 
E: 
4 Phase 2 - Record 1 Iv_1 = 85 iv 2 = 86 lv 3 = 87 lv 4 = 88 
5 Phase 2 - Record 2 lv_i = 85 Ive’ = 86 Tv 3) 5567 lv 4 = 88 
5 = - ae 
7 - Record 88 
8 
9 


me] 
> 
1) 
” 
1) 
=e WW Wo NP 


Phase - 85 lv 2 86 lv 3 
10 Phase 4 - Record 1 lv? 3°65 Iv 2: =-86 lv 3 = 88 lv 4 = 88 
14 Phase 4 - Record 2 lv_1 = 85 iv 2 = 86 lv 3 = 88 lv 4 = 88 
12 
13 Phase 5 - Record 1 lv_1 = 85 tee. S87 lv 3 = 88 lv 4 = 89 
14 Phase 5 = Record 2 lv_1 = 85 lv = 87 lv 3 = 88 lv 4 = 90 
15 = 
16 Phase 6 - Record 1 lv_1 = 85 lv 2 = 86 lv 3 = 88 lv_ 4 = 90 
17 Phase 6 - Record 2 lv 1 = 85 lv 2 = 86 lv 3 = 88 lv 4 = 90 
18 ~ ~ ~ ~ 
19 Phase 7 - Record 1 lv_1 = 86 lv 2 = 86 lv 3 = 90 lv 4 = 90 
20 Phase 7 - Record 2 ly 1 = 86 lv 2 = 86 lv 3 = 91 lv 4 = 90 
21 
22 Phase 8 - Record 1 dv. 285 lv 2 = 86 lv 3 = 91 lv 4 = 90 
23 Phase 8 ~ Record 2 iy. 2285 v2 = 86 lv 3 = 91 lv 4 = 90 
24 o - 
25 \014 
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Discussion 


ine results for in 3, in.4, 1lv_3, and lv_4 are identical for B_t-HA and 
2 BB HA in all eight phases because none of these fields or variables are 
neluded in the hold statement in phase 1 on program line 36. 


In begin 8 hold assign.in.report the value of in_3 remains as 23 on lines 4 
and 5 because 23 is the value of in 3 in the second input record. The value of 
in 3 changes to 24 on report line 7 because of program line 50. Program line 90 
changes the value from the 24 on report line 17 to 25 before the first input 
record is made available. Program line 94 changes the value to 26 on report 
line 19 when the first of the held input records is made available and to 27 on 
report line 20 when the second record is made available. 


Similar changes to the values for in 4, lv_3, and lv_4 occur because of 
similar placements of assignment statements for those items. Most of the 
results for in_1, in_2, lv_1, and lv 2 are also due to similar placements of 
assignment statements for these items. ‘ 


The values of in_1 in phase 8 differ between B_1 HA and B 8 HA because of 
the hold statement on program line 97. The hold in B 8 HA causes the changed 
value of in_1 to be retained for use in later phases. Since there is no 
corresponding hold statement in B 1 HA, the results of the incrementing of in 1 
disappear at the end of phase 7, and the values for phase 8 are the values that 
were held during phase 1. The same effect is observed for in _2 when going from 
phase 4 to phase 5. However, in phases 6 through 8 of B_8 HA, the values of 
in 2 are those that were established in phase 5. These values are carried over 
to phases 6 through 8 because of the hold statement in phase 5 on program line 
75. 


The assignment statements for in_1 and lv_1 on program lines 50 and 51 have 
no effect on the reports because in 1 and lv 1 are held items. The incrementing 
is performed on some leftover values, but those leftover values are overwritten 
when the first held input record becomes available. 
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APPENDIX C 


THE report I/O MODULE 


INTRODUCTION 


The report _ procedure is an I/O module, in the same sense that tty_ and 
vfile are I/O modules. However, because the application of report_ is closely 
connected to MRPG, the writeup of report is found in this. manual, rather than 
in the MPM Subroutines. 


This appendix contains a description of the report _ I/O module, using the 
same format as is used for the I/O module descriptions in the MPM Subroutines. 
Following the report description is a discussion of how the report_ I/O module 
interacts with other procedures in a Multics system. 
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report _ report_ 


Name: report_ 


This I/O module provides a mechanism for supplying input data to the report 
generation portion of an MRPG-OS. The implementation almost completely isolates 
the MRPG-OS from the details of I/O switches and modules. Should changes be 
made in the future to the general I/O switch approach, and/or to the content of 
I/O control blocks, the report  I/0 module can be changed and existing MRPG-OS 
should be able to continue producing the same reports. 


Entries in the module are not called directly by users; rather, the module 
is accessed through the I/0 system. (See "Multics Input/Output System" and 
"File Input/Output" in Section 5 of the MPM Reference Guide for a_ general 
description of the I/0 system and a discussion of files, respectively.) 


Attach Description 


The attach description has the following form: 


report _ ref name {parameter list} 


where: 
1. ref name 

is the reference name used when the MRPG-OS is initiated. 
nae parameter list 


is a list of parameter values required by the MRPG-OS. The items in 
the list are separated by spaces. The sequence of the items must 
match the sequence required by the MRPG-OS. 


Open Operation 


The following opening modes are supported: 
stream output 
sequential output 


An existing file is truncated to zero. 


Only write access is required on the file. 
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These writing operations are supported for these opening 


stream output 


es supports 
sequential output 


supports 


put_chars 
write record 


No other writing operations are supported. 


Other Operations 


These operations are supported: 


close 
detach _iocb 


These operations are not supported: 


all read-type operations 
all key-type operations 
delete record 

position 

modes 

control 


File Position Designators 


The standard file position designators: 
next byte 
next record 
current record 
key for insertion 


are not used by the report_ I/O module. 
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report _ 


modes: 
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INTERACTION WITH OTHER PROCEDURES 


The remainder of this appendix provides a summary of how the report I/0 
module interacts with the MRPG-OS and with an input data supplier such as LINUS. 


Gross Structure of an MRPG-OS 


An MRPG-OS can be thought of as consisting of two parts, an input data 
supplier part and a report production part. For brevity, these two parts are 
referred to as MRPG-OS-input and MRPG-OS-report. 


When the MRPG-OS is invoked as a command, the MRPG-OS-input obtains the 
input data. 


When the MRPG-OS is used as an I/O appendage, the input data is obtained by 
some external procedure, such as LINUS. 


In both cases, the input data is passed through report_ to MRPG-OS-report, 
which produces the report or reports. 


The Input Data Supplier Part 


The Declare Input File group includes the FILE and ATTACH keywords. If 
either is specified, it is possible for the MRPG-OS-input' to be invoked as a 
command and to obtain the input data. It is also possible for an external 
procedure to obtain the input data. If the MRPG-OS is used as an I/O appendage, 
the FILE or ATTACH information and associated PL/I statements are ignored. 


If neither FILE nor ATTACH are specified, the input data must be obtained 
by an external procedure. It is impossible to produce the reports by invoking 
the MRPG-OS as a command. 


The Report Production Part 


This part of the MRPG-OS converts each input data line/record into one or 
more report lines/records in one or more reports. These actions are independent 
of the origin of the input data. 


Every report is written to either a file or a switch. The MRPG-OS-report 
calls on the iox_ subroutine to attach, open, write to, close, and detach the 
report files and switches. 


The only external entry point used by MRPG-OS-input or an external 
procedure (e.g., LINUS) is: 


report_attach 
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A Command Scenario 


in a 
line 


this 


In this scenario, the MRPG-OS is invoked as a command. The input file is 
segment and the single output report is written to a segment. Fach input 
produces one report line. 


For purposes of referring to the following steps in the next scenario, call 
scenario A. 


Al. 


Ae. 


A3. 
A4, 


A5. 
Ao. 


AT. 


A8. 


A14, 
A15. 


The MRPG-OS is invoked from command level. 


MRPG-OS-input calls on iox_, report_, and MRPG-OS-report to set up a 
report switch for delivering data to MRPG-OS-report. 


MRPG-OS-input attaches and opens the input file. 


MRPG-OS-input obtains the next data line. When there is no more data, 
go to step All. 


MRPG-OS-input writes one data line via iox . 


Information as to the location, length, etc., of that data line 
proceeds from iox_ through report _ to MRPG-OS-report. 


The first time control reaches here, MRPG-OS-report attaches and opens 
the report file using the vfile_ I/O module. 


MRPG-OS-report manipulates its input data line to produce one report 
line. In more complicated situations, report, page, detail heading 
and footing lines, and multiple data lines are produced when 
appropriate as part of this step for one or more reports. If needed 
for second or subsequent phases, the input data and other data is held 
during this step. . 


MRPG-OS-report writes the report line. 


turns eontr 


oops back to step A4. 
MRPG~OS-input closes and detaches the input file. 
MRPG-OS-input closes the report switch set up in step A2. 

As part of accomplishing the previous step, control passes through 
iox and report _ to MRPG-OS-report. If the MRPG-OS program contains 
more than one phase, the second and all subsequent phases are executed 
at this time. The report file set up in step A7 is closed and 
detached. Control returns to MRPG-OS-input through report _ and iox.. 
MRPG-OS-input detaches the report switch closed in step Al2. 


MRPG-OS-input returns control to the command processor. 
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An I/O Appendage Scenario 


In this scenario, the MRPG-OS is used as an I/O appendage by some external 


procedure. 
Otherwise, 


ils 


12. 


13. 
14, 


15. 


For brevity, LINUS is assumed to be that external procedure. 
this scenario is like scenario A. 


LINUS is invoked from command level. 


The desired data base is selected and made available. The desired 
LILA requests are set up to produce the data lines of interest. A 
request of this form is issued: 


report <pathname of the MRPG-OS> 


Similar to A2. LINUS calls on iox_, report_, and MRPG-OS-report to 
set up a report switch for delivering data to MRPG-OS-report. 


Same function as A4¥. LINUS builds its next data line. When there is 
no more data, go to step 11. 


Similar to A5. LINUS writes one data line via iox.. 


Identical to A6. Information as to the location, length, etc., of 
that data line proceeds from iox_ through report_ to MRPG-OS-report. 


Identical to A7. The first time control reaches here, MRPG-OS-report 
attaches and opens the report file using the vfile_ I/0 module. 


Identical to A8. MRPG-OS-report manipulates its input data line to 
produce one report line. In more complicated situations, report, 
page, detail heading and footing lines, and multiple data lines are 
produced when appropriate as part of this step for one or more 
reports. If needed for second. or subsequent phases, the input date 
and other data is held during this step. 


Identical to A9. MRPG-OS-report writes the report line. 


Similar to A10. MRPG-OS-report returns control through report_ and 
iox_ to LINUS which loops back to step 4. 


Similar to Ale2. Since the report request made in step 2 has been 
carried out, LINUS closes the report switch set up in step 3. 


Similar to A13. As part of accomplishing the previous step, control 
passes through iox_ and report_ to MRPG-OS-report. If the MRPG-OS 
program contains more than one phase, the second and all subsequent 
phases are executed at this time. The report file set up in step 7 is 
closed and detached. Control returns through report_ and iox_ to the 
MRPG-OS-input which returns control to LINUS. 


Similar to A14. LINUS detaches the report switch closed in step 11. 


Similar to A111. If the user of LINUS so requests, LINUS closes and 
detaches the connections to the data base. 


Similar to A15. Assuming the user is done and so requests, LINUS 
returns control to the command processor. 
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APPENDIX D 


GENERAL FORMAT DIAGRAMS 


This section consists of the general format diagrams that appear in 
Section 5. They are collected in this appendix so that the knowledgeable user 
may easily refer to any of the diagrams without having to flip back and forth as 
is required in Section 5 because the groups there are arranged in alphabetical 
order. However, in this appendix, the groups are arranged in their hierarchial 
order, which generally corresponds to the sequence in which the major groups 
must occur in a program. 


| tewnre_proren_| 


Declare Parameters ] 
Declare Input File 
[ Declare Variable ] 
{ Define Report } cee 
{ Execute Phase } soe 


END ; 


Declare Parameters 


DECLARE PARAMETER 
j 
DCL PARM 
CHARACTER # 
( ) 
CHAR integer-1 
( 


| KEY ( "string-1" [, "string-1" ] ... ) C) 
,» 2 parameter _name-0O ied 
ol] DEFAULT Char_Expr-1 : 
BOOLEAN 
KEY ( "string-1" [ » "“string-1" ] bus: oD 
BOOL 
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| cectore_toput rite | 
DECLARE 
1 INPUT 
DCL 


1 | RECORD [ integer-2 | C) 


STREAM 


FILE Char _Expr-2 
0 ATTACH Char _Expr-3 


j O 


, 2 input field name-0 = 


, 2 FILL (integer-3) 


| torut_rieie per | 


(integer-4) 


CHARACTER 
CHAR SPECIAL 
(integer-5) 


DELIMITED "string-2" 


(integer-4) 
DECIMAL 

SPECTAL 
DEC 


~ < s 
| DELIMITED "string-2" J 


[ opTIONAL ] [ PosiTI0N integer-6 ] 
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| _vectare vartabie | 
DECLARE 
DCL 
DECIMAL 
DEC 


CHARACTER VARYING 
local variable name-0 ( integer-7) 


CHAR VAR 


BOOLEAN 
BOOL 


number-1 [ » number-1 ] 
set_variable name-0O SET ( 


"string-5"[_ : "string-5"] he 


number-2 -> number-3 

number-2 -> "string-7" VARYING 
table variable name-O TABLE ( "string-6" -> number-3 saa) 

"string-6" -> "string-7" VAR 
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DEFINE 1 REPORT report _name-0 


[ Report Control ] 


[ Heading | 

{ detail } ... 
[ Footing | 

; 


| Define Report 


De4 
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| Report Control | 


PAGEWIDTH 
integer-8 
PGW 


PAGELENGTH 
integer-9 
PGL 
MINLINE 
integer-10 
MINL 
A 
ON 


BREAK ( 


| input_field. name-1 oe 
) 


iqj local variable name-1 


MAXLINE 
integer-11 
MAXL 
PILE Char_Expr-2 
SWITCH Char _Expr-3 
FILE Char_Expr-2 
SWITCH Char _Expr-3 


{oR 
IF ( Full_Expr-3 ) 1 


ee 


1 
| 


FILE Char _Expr-2 
SWITCH Char_Expr-3 
) 
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| teasing | 


, 2 REPORTHEAD { Line-1 } ... |? 
0 


, 2 PAGEHEAD { Line-2 } vad 


, 2 DETAILHEAD break_field_ident-1 


1} IF ( Full_Expr-4 ) |. C) 
MAXLINE { Line-3 3 ora 
integer-13 


MAXL 


J teen] 
if] IF (Full_Expr-4) C) 


, 2 DETAIL detail_name-0 MAXLINE Line-4 oar 
integer-13 
0 MAXL 


| ie 


integer-14 


+ integer-15 


PAUSE 
[ 1 ( Full_Expr-6 | 
0 


[ iF ( Full _Expr-5 | [ Report_Field_Der | ies 
» 3 LINE 
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| tevort_riera per | 


,» 4 Char_Expr-4 | 
: © 
input field name-4 
LET. A := Full Expr-8 ; eae 


local variable name-2 


COLUMN 
integer-16 
COL 


BSP 


ALIGN "string-8" 


PICTURE 
"string-3" 
PIC 


LEFT 
CHARACTER 
( integer-17 ) CENTER 
CHAR 
0 RIGHT 


| Footing | 


, 2 DETAILFOOT break field ident-1 


if} IF ( Full_Expr-4 ) 


MAXLINE { Line-5 } poe 
integer-13 


MAXL 


1 


0 


, 2 PAGEFOOT  Line-6 } ... \° 


, 2 REPORTFOOT { Line-7 } eae 
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Execute Phase 


Format 1: (Valid only for the first phase.) 


BEGIN ( [ local variable name-2 := Full Expr-9 ; ] oD, 


nj] INPUT o 


[ Loop Statement ] sae HOLD input field name-4 


Off local _ variable name-3 


Format 2: (Valid for all phases after the first phase.) 


BEGIN ( [ local _ variable name-2 := Full_Expr-9 ; ] vee) 


n input field name-5 ASCENDING 
ASC DUPLICATE 
SORT DESCENDING NO ; 
1 local variable name-4 DESC DUPL 
{ Loop Statement } see [ HOLD ; ] 


where Loop Statement is: 


input _field_name-4 
:= Full _Expr-8 ; 


local variable name-2 
report_name-1 
PRINT ; 
detail _name-1 
IF Full_Expr-10 THEN £{ Loop Statement } jaa 


[ erst { Loop_statement }... ] FI; 
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Full Expr 


n OR C) 
{ } Boolean Fact 

AND 

Boolean Fact 

0 & = 


where Boolean Fact is 


Boolean Fact 


Char_Fxpr-5 


TRUE 


NOT 
FALSE 


( integer-19 ) 
ZLEVEL 
( break field ident-1 ) 


NOT 
Char_Expr-6 IN set_variable name-1 


Relationship Test 


| Relationship Test | 


(Ran wr PS OT SPS RTE ST ETT 


LT 

< ; 
LE 

<= 

EQ 

GE 


Char_Expr-7 Char_Expr-8 


BEGINS 
CONTAINS [ worp ] 
ENDS 


BEGIN 


{ "| CONTAIN [ WORD ] 
L END | 
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koa 


C{ CONCATENATE » 
| Char_Ref-2 | i 


IF ( Full_Expr-11 ) Char_Ref-3 


n 


4 
' 


| Char Ref | 


Arith_Expr-1 

"string-9" 

“SMMDDYY 

SYYDDD 

SMONTH 

SDAY 

SHHMMSS 

ZSUBSTR ( Char_Expr-9, Arith Expr-2 [, Arith_Expr-3 ]> 
“REPEAT ( Char_Expr-10, Arith_Expr-5 ) 


Arith Expr 


| 


+ + 
- Arith_ Ref - Arith_Ref 


“Nome EE + 


where Arith Ref is 


number-4 

input_field-name-6 

local_variable name-4 

parameter name-1 

SPAGENUMBER ( [ report_name-1 ] ) 

TRANSFORM ( Full_Expr-12, table variable name-1 ) 


( Full Expr-13 ) 
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MULTICS REPORT PROGRAM 


GENERATOR (MRPG) 
REFERENCE MANUAL 
ADDENDUM A 
SUBJECT 
Additions and Changes to the Multics Report Program Generator Reference 
Manual 
SPECIAL INSTRUCTIONS 


This is the first addendum to CC69, Revision 0 dated March 1978. Insert the 
attached pages into the manual according to the collating instructions on the 
back of this cover. Change bars in the margin indicate technical additions and 
changes; asterisks denote deletions. There are no new or deleted commands 
associated with this release. The majority of corrected items relate to Trouble 
Reports (TRs) and User comments. 
Note: 
Insert this cover after the manual cover to indicate the updating of the 
document with Addendum A. 


SOFTWARE SUPPORTED 
Multics Software Release 10.1 


ORDER NUMBER 

CC69-00A November 1982 
35837 
re. Honeywell 
Printed in U.S.A. 


COLLATING INSTRUCTIONS 


To update the manual, remove old pages and insert new pages as follows: 


Remove 


Front Cover 

2-3, 2-4 

5-9, 5-10 

5-15 through 5-18 
5-21, 5-22 

5-29 through 5-36 
5-45, 5-46 

5-55, 5-56 

5-63 through 5-76 
Bei, b-2 

Remarks Form (CC69-00) 


The information and specifications in this document are 
subject to change without notice. This document contains 
information about Honeywell products or services that may 
not be available outside the United States. Consult your 
Honeywell Marketing Representative. 


© Honeywell Information Systems Inc., 1982 
11/82 


Insert 


Front Cover 
2-3, 2-4 
5-9, 5-10 
5-15 through 
5-21, 5-22 
5-29 through 
5-45, 5-46 
5-55, 5-56 
5-63 through 
B-1, B-2 
Remarks Form 


5-18 
5-36 


5-76 
(CC69-00A) 


File No.: 1L23 


CC69-00A 


— a = -——-- CUT ALONG LINE = 


mmr ee eee wee ee ee ee ee ee 


HONEYWELL INFORMATION SYSTEMS 
Technical Publications Remarks Form 


ORDER NO. 


CC69-00A 


MULTICS REPORT PROGRAM GENERATOR 
TITLE) (MRPG) REFERENCE MANUAL 


ADDENDUM A | i 


DATED | NOVEMBER 1982 


OS 


ERRORS IN PUBLICATION 


SUGGESTIONS FOR IMPROVEMENT TO PUBLICATION 


r\ Your comments will be investigated by appropriate technical personne! 
and action will be taken as required. Receipt of ail forms will be 
L/ acknowledged; however, if you require a detailed reply, check here. 


QI? RNG cn es DATE ___ 
SU es a 
COMPANY a he eee 
ADDRESS 


PLEASE FOLD AND TAPE-— 
NOTE: U. S. Postal Service will not deliver stapled forms 


NO POSTAGE 
NECESSARY 
IF MAILED 


IN THE 
UNITED STATES 


BUSINESS REPLY MAIL 


FIRST CLASS PERMIT NO. 39531 WALTHAM, MA02154 


POSTAGE WILL BE PAID BY ADDRESSEE 


HONEYWELL INFORMATION SYSTEMS 
200 SMITH STREET 
WALTHAM, MA 02154 


ATTN: PUBLICATIONS, MS486 


Honeywell 


—— ae ee ee 


——— 


FOLD ALONG LINE 


A nes ee ee ee 


A--a-a a + CUT ALONG Lin 


FOLD ALONG LINE 


Honeywell 


Honeywell Information Systems 
In the U.S.A.: 200 Smith Street, MS 486, Waltham, Massachusetts 02154 
In Canada: 2025 Sheppard Avenue East, Willowdale, Ontario M2J 1W5 
In Mexico: Avenida Nuevo Leon 250, Mexico 11, D.F. 


20646, 1478, Printed in U.S.A. 


CC69, Rev. 0 


